[R] need some help with date

peter dalgaard pdalgd at gmail.com
Mon Aug 15 02:32:33 CEST 2016


> On 15 Aug 2016, at 00:40 , Glenn Schultz <glennmschultz at me.com> wrote:
> 
> Here is a sample of the data that I am working with.  Dates may go back as far as 1930’s.  When I use as.Date() I noticed that any data < 12/31/68 returns as the new century.  So I wrote this function below to be applied to the data which I dput below the function.  If I use the function DateCentury(Date = df[1,”TERM DATE”) it will return the correct date.  However, if I use the function as follows DateCentury[,”TERM DATE”]) it does not work. 

I suppose you intended DateCentury(Date = df[,”TERM DATE”]) there

>  Anyhow, I have been at this awhile and I am totally stumped.  I need to refactor the below date vectors across just under 50,000 observations.  Any suggestions would be greatly appreciated.

Your code isn't vectorized; a vector argument will cause trouble as soon as you get to the if() statements inside the function. 

A quick (but slow...) way out is to use Vectorize(DateCentury)(...) (or a for loop, or sapply()).  A better way is to learn how to write code in a vectorized fashion. This typically involves replacing if() with indexing ([...]) or maybe ifelse() constructions (sorry, fixing your actual code would take a bit too much time).

A couple of other hints:

- Don't write code that relies on current date. You'll regret it when you need to run it again in 20 years and 2035 is no longer in the future.

- The string manipulation looks like it would be more conveniently done by converting the dates to POSIXlt objects, manipulate the year field directly, and then convert to character using a suitable format. Or, can't you just add/subtract 100 years = 36525 days? That should work as long as you don't need to go back further than March 1, 1900 (when you'll get bitten by the fact that 1900 was not a leap year but 2000 was...). 

-pd

> 
> Best,
> Glenn
> 
> DateCentury <- function(Date = "character"){
>    ThisDate = as.Date(Date, format = "%m/%d/%y", origin = "1900-01-01")
>    CurrDate = as.Date(Sys.Date())
>    Century = as.Date("1999-12-31", format = "%Y-%m-%d", origin = "1900-01-01")
>    NewDate <- if(ThisDate > CurrDate){
> 
>      if(nchar(Date) == 6){
>        paste(substr(Date,1,4),"19", substr(Date,5,6),sep ="")
>                  } else {
>                if(nchar(Date) == 7){paste(substr(Date,1,5),"19", substr(Date,6,7),sep ="")
>                  } else {
>                paste(substr(Date,1,6),"19", substr(Date,7,8),sep ="")
>                  }
>                    }
> 
>      } else {
> 
>        if(ThisDate <= Century){
> 
>                    if(nchar(Date) == 6){
>                      paste(substr(Date,1,4),"19", substr(Date,5,6),sep ="")
>                    } else {
>                      if(nchar(Date) == 7){paste(substr(Date,1,5),"19", substr(Date,6,7),sep ="")
>                      } else {
>                        paste(substr(Date,1,6),"19", substr(Date,7,8),sep ="")  
>                        }
>                      }
>            }  else {
>                        if(nchar(Date) == 6){paste(substr(Date,1,4),"20", substr(Date,5,6),sep ="")
>                          } else {
>                        if(nchar(Date) == 7){paste(substr(Date,1,5),"20", substr(Date,6,7),sep ="")
>                        } else {
>                            paste(substr(Date,1,6),"20", substr(Date,7,8),sep ="")
>                          }
>                      }
>                    }
>          }
> 
>    return(NewDate)}
> 
> 
> 
> 
> 
> Data
> structure(list(`HUD PROJECT NUMBER` = c(1L, 2L, 3L, 4L, 5L, 6L, 
> 7L, 8L, 9L, 10L, 39L, 43L, 46L, 47L, 49L, 50L, 51L, 52L, 53L, 
> 54L, 55L, 58L, 59L, 60L, 61L, 62L, 66L, 68L, 69L, 74L, 77L, 78L, 
> 82L, 83L, 84L, 87L, 88L, 89L, 90L, 91L, 98L, 99L, 100L, 101L, 
> 102L, 103L, 104L, 105L, 107L, 108L, 110L, 111L, 112L, 113L, 114L, 
> 116L, 118L, 119L, 120L, 121L, 122L, 123L, 125L, 135L, 140L, 141L, 
> 144L, 146L, 9001L, 9002L, 10001L, 10004L, 10005L, 10007L, 10008L, 
> 10010L, 10011L, 10501L, 10502L, 10503L, 10504L, 10505L, 10506L, 
> 10507L, 10508L, 10510L, 10515L, 10516L, 10517L, 10518L, 10519L, 
> 10520L, 10521L, 10522L, 10523L, 10525L, 10526L, 10527L, 10528L, 
> 10529L), `PROPERTY NAME` = c("COLONIAL VILLAGE APTS", "COLONIAL VILLAGE APTS", 
> "FALKLAND APTS", "COLONIAL VILLAGE APTS", "BRENTWOOD VILLAGE", 
> "FALKLAND APTS", "BUCKINGHAM II", "FIRST BUCKINGHAM", "PARKBELT HOMES", 
> "BUCKINGHAM III", "SKYLAND APTS", "BUCKINGHAM IV", "WESTOVER APTS", 
> "MT VERNON DEV", "ARLINGTON VILLAGE APTS", "FAIRFAX VILLAGE III", 
> "BUCKINGHAM V", "SUBURBAN GARDENS", "BUCKINGHAM III", "PINEY BRANCH APTS", 
> "AUBURN GARDENS", "BUCKINGHAM V", "BUCKINGHAM IV", "GLEBE COURT APTS", 
> "BARCROFT APTS", "FAIRFAX VILLAGE IV", "BELLEVUE GARDENS", "FILLMORE CO INC", 
> "BRADLEY BLVD APTS", "2702 WISCONSIN", "WINCHESTER SUMMIT", "BUCKINGHAM II", 
> "ARLINGTON TOWERS", "ARLINGTON TOWERS", "ARLINGTON TOWERS", "BRADDOCK LEE APT I", 
> "BRADDOCK LEE APT II", "BRADDOCK LEE APT III", "BRADDOCK LEE APT IV", 
> "BRADDOCK LEE APT V", "4600 CONN COOP", "GARFIELD APTS", "CATHEDERAL PK TOW", 
> "SECOND PKSIDE APT", "THE ENVOY", "CARDINAL HOUSE", "TUNLAW PARK APTS", 
> "RAVENWOOD TOWERS", "PARKSIDE APTS", "PARK BERKSHIRE APTS", "JOHN MARSHALL APTS", 
> "MATTAPONY MANOR", "MOSBY VILLAGE APTS", "RIVER TOWERS", "", 
> "BARNETT HOUSE", "RIVERS TOWERS II", "FAIRHAVEN GARDENS", "CIRCLE APARTMENTS", 
> "HYBLA VALLEY MOBLE HMS", "PARK PLAZA APTS", "ENVOY TOWERS", 
> "C H HOUSTON APTS", "DUMFRIES MOBILE HM VLG", "SKYLINE TOWERS APTS I", 
> "SKYLINE CENTER APTS", "CHESTNUT GROVE APTS", "BRENTANA GARDENS", 
> "GREGORY ESTATES", "BARNABY GARDENS", "C H HOUSTON APTS", "HIGHVIEW TERRACE", 
> "CHESTNUT GROVE APTS", "ROCKVILLE NRSNG HOME", "STANTON-WELLINGTON APTS. DBA F", 
> "COLLINSWOOD NURSING HOME", "SHADY GROVE ADVENTIST NURSING", 
> "GLENDALE LAKE APTS", "GARFIELD COURT", "COUNTRYSIDE APTS", "INVIEW HOUSE", 
> "TOP OF THE PARK", "SUMMIT CREST APTS", "BRADFORD PLACE", "HILLSIDE TERR APTS", 
> "OAK HILL APTS", "PARK BERKSHIRE APTS I", "CARROLLAN MANOR", 
> "LANSDOWNE VILLAGE APTS", "GATEWAY SQUARE", "KIRKWOOD VILLAGE APTS", 
> "GOODACRE APTS", "PENN SOUTHERN APTS.", "WOODMONT PARK APTS", 
> "FINIANS CT", "ROCKFORDTHE", "ISABELLA PARK APARTMENTS", "GREENTREE III", 
> "", "MARLOW HEIGHTS SECTION A"), `PROPERTY STREET` = c("1913 WILSON BLVD", 
> "1913 WILSON BLVD", "8305 16TH STREET", "1913 WILSON BLVD", "1287 BRENTWOOD RD NE", 
> "8305 16TH STREET", "313 N GLEBE RD", "313 N GLEBE RD", "", "313 N GLEBE RD", 
> "2307 SKYLAND PL SE", "313 N GLEBE RD", "1649 N LONGFELLOW", 
> "", "1021 S BARTON", "2019 37TH ST SE", "313 N GLEBE RD", "4904 JAY ST NE", 
> "313 N GLEBE RD", "8400 PINEY BRANCH RD", "101 GLEBE ROAD E", 
> "313 N GLEBE RD", "313 N GLEBE RD", "", "1130 S GEORGE MASON DR", 
> "2019 37TH ST SE", "", "", "", "2702 WISCONSIN AVE", "", "313 N GLEBE RD", 
> "1101 ARLINGTON BLVD", "1011 ARLINGTON BLVD", "1011 ARLINGTON BLVD", 
> "3810 KING ST", "3810 KING ST", "3810 KING ST", "3810 KING ST", 
> "3810 KING ST", "4600 CONNECTICUT AVE NW", "5410 CONNECTICUT AVE NW", 
> "3100 CONNECTICUT AVE NW", "", "2144 CALIFORNIA ST  NW", "3000 SPOUT RUN PKWY", 
> "3850 TUNLAW RD NW", "6166 LEESBURG PIKE", "10520 MONTROSE AVE", 
> "6317 PENNSYLVANIA AVE", "", "5002 57TH AVE", "10560 MAIN ST", 
> "6631 WAKEFIELD DRIVE", "", "201 MASSACHUSETTS AVE NE", "6631 WAKEFIELD DRIVE", 
> "JERMANTOWN ROAD", "2030 N ADAMS ST", "BARGIN CITY-HYBLA VALLEY", 
> "1629 COLUMBIA RD NW", "2400 16TH ST NW", "1712 16TH ST NW", 
> "DUMFRIES", "5601 SEMINARY ROAD", "5600 SEMINARY ROAD", "11200 CHESTNUT GROVE SQ", 
> "", "7618 GEORGE PALMER HGWY", "3876 9TH ST SE", "1714 16TH ST NW", 
> "6800-7021 HIGHVIEW TER", "11200 CHESTNUT GROVE SQ", "303 ADCLARE ROAD", 
> "2549 ELVANS RD SE", "299 HURLEY AVENUE", "9701 MEDICAL CENTER DRIVE", 
> "10001 GREENBELT RD", "5701 43RD AVE", "9971 GOODLUCK RD", "6161 EDSALL ROAD", 
> "4009 GALLATIN ST", "38 N SUMMIT AVE", "3506 SILVER PARK RD", 
> "1805-1910 23RD ST SE", "11497 COLUMBIA PIKE", "6301 PENNSYLVANIA AVE", 
> "8621 ANNAPOLIS RD", "1720 BRIGHTSEAT RD", "4855 ST. BARNABAS RD", 
> "2731 NICHOLSON", "8619 PINEY BRANCH RD", "", "1001 ROCKVILLE PIKE", 
> "7756 FINNS LANE", "1444 ROCK CREEK FORD RD", "2214 PHELPS ROAD", 
> "8051 GREENLEAF TERR", "", "4223 28TH AVE"), `PROPERTY CITY` = c("ARLINGTON", 
> "ARLINGTON", "SILVER SPRING", "ARLINGTON", "WASHINGTON", "SILVER SPRING", 
> "ARLINGTON", "ARLINGTON", "GREENBELT", "ARLINGTON", "WASHINGTON", 
> "ARLINGTON", "ARLINGTON", "ALEXANDRIA", "ARLINGTON", "WASHINGTON", 
> "ARLINGTON", "WASHINGTON", "ARLINGTON", "SILVER SPRING", "ALEXANDRIA", 
> "ARLINGTON", "ARLINGTON", "ARLINGTON", "ARLINGTON", "WASHINGTON", 
> "WASHINGTON", "ARLINGTON", "BETHESDA", "WASHINGTON", "WASHINGTON", 
> "ARLINGTON", "ARLINGTON", "ARLINGTON", "ARLINGTON", "ALEXANDRIA", 
> "ALEXANDRIA", "ALEXANDRIA", "ALEXANDRIA", "ALEXANDRIA", "WASHINGTON", 
> "WASHINGTON", "WASHINGTON", "ROCKVILLE", "WASHINGTON", "ARLINGTON", 
> "WASHINGTON", "SEVEN CORNERS", "BETHESDA", "SUITLAND-SILVER HI", 
> "WASHINGTON", "BLADENSBURG", "FAIRFAX", "ALEXANDRIA", "", "WASHINGTON", 
> "ALEXANDRIA", "FAIRFAX", "ARLINGTON", "FAIRFAX", "WASHINGTON", 
> "WASHINGTON", "WASHINGTON", "DUMFRIES", "BAILEY'S CROSSROAD", 
> "BAILEY'S CROSSROAD", "RESTON", "RESTON", "SEAT PLEASANT", "WASHINGTON", 
> "WASHINGTON", "HYATTSVILLE", "RESTON", "ROCKVILLE", "WASHINGTON", 
> "ROCKVILLE", "ROCKVLLE", "LANHAM-SEABROOK", "HYATTSVILLE", "HYATTSVILLE", 
> "ALEXANDRIA", "HYATTSVILLE", "GAITHERSBURG", "SUITLAND-SILVER HI", 
> "WASHINGTON", "SILVER SPRING", "FORESTVILLE", "LANHAM-SEABROOK", 
> "LANDOVER", "PRINCE GEORGE'S CO", "HYATTSVILLE", "SILVER SPRING", 
> "SILVER SPRING", "PURCELLVILLE", "LANHAM-SEABROOK", "WASHINGTON", 
> "ADELPHI", "GLEN BURNIE", "", "SUITLAND-SILVER HI"), `PROPERTY STATE` = c("VA", 
> "VA", "MD", "VA", "DC", "MD", "VA", "VA", "MD", "VA", "DC", "VA", 
> "VA", "VA", "VA", "DC", "VA", "DC", "VA", "MD", "VA", "VA", "VA", 
> "VA", "VA", "DC", "DC", "VA", "MD", "DC", "DC", "VA", "VA", "VA", 
> "VA", "VA", "VA", "VA", "VA", "VA", "DC", "DC", "DC", "MD", "DC", 
> "VA", "DC", "VA", "MD", "MD", "DC", "MD", "VA", "VA", "", "DC", 
> "VA", "VA", "VA", "VA", "DC", "DC", "DC", "VA", "00", "VA", "VA", 
> "VA", "MD", "DC", "DC", "MD", "VA", "MD", "DC", "MD", "MD", "MD", 
> "MD", "MD", "VA", "MD", "MD", "MD", "DC", "MD", "MD", "MD", "MD", 
> "MD", "MD", "MD", "MD", "VA", "MD", "DC", "MD", "MD", "", "MD"
> ), `PROPERTY ZIP` = c("22201", "22201", "20910", "22201", "20018", 
> "20910", "22203", "22203", "20770", "22203", "20020", "22203", 
> "22205", "00000", "22204", "20020", "22203", "20019", "22203", 
> "20901", "22305", "22203", "22203", "00000", "22204", "20020", 
> "00000", "00000", "20014", "20007", "00000", "22203", "22209", 
> "22209", "22209", "22302", "22302", "22302", "22302", "22302", 
> "20008", "20015", "20008", "00000", "20008", "22201", "20007", 
> "22044", "20014", "20023", "00000", "20710", "22030", "22037", 
> "00000", "20002", "22307", "22030", "22201", "22030", "20009", 
> "20009", "20009", "22026", "22041", "22041", "22090", "22037", 
> "20027", "20032", "20005", "20782", "22090", "20850", "20020", 
> "20850", "20850", "20801", "20781", "20706", "22304", "20785", 
> "20877", "20746", "20020", "20904", "20747", "20706", "20785", 
> "20748", "20782", "20901", "20910", "20850", "20801", "20011", 
> "20783", "00000", "00000", "20748"), UNITS = c(274L, 464L, 181L, 
> 237L, 440L, 303L, 98L, 524L, 10L, 200L, 223L, 192L, 153L, 57L, 
> 655L, 207L, 276L, 204L, 112L, 214L, 304L, 176L, 248L, 77L, 423L, 
> 214L, 251L, 181L, 161L, 80L, 41L, 98L, 366L, 415L, 434L, 40L, 
> 58L, 80L, 40L, 40L, 267L, 166L, 323L, 120L, 113L, 229L, 284L, 
> 304L, 170L, 336L, 30L, 154L, 205L, 168L, 0L, 95L, 175L, 76L, 
> 116L, 250L, 274L, 332L, 45L, 156L, 470L, 470L, 225L, 240L, 503L, 
> 79L, 46L, 306L, 224L, 100L, 398L, 160L, 170L, 443L, 62L, 451L, 
> 207L, 106L, 232L, 213L, 192L, 281L, 336L, 187L, 345L, 297L, 750L, 
> 156L, 308L, 414L, 57L, 66L, 445L, 1122L, 0L, 0L), `INITIAL ENDORSEMENT DATE` = c("4/20/35", 
> "12/9/35", "9/11/36", "2/8/37", "8/3/37", "8/19/37", "3/15/40", 
> "8/3/37", "5/13/38", "4/13/38", "3/7/39", "8/26/38", "8/24/39", 
> "8/18/39", "1/4/39", "2/24/40", "1/4/39", "4/11/41", "5/9/39", 
> "7/10/40", "8/19/40", "7/15/40", "4/14/41", "7/15/41", "10/23/41", 
> "9/30/41", "7/16/43", "4/23/42", "3/13/42", "6/8/42", "1/18/43", 
> "9/23/44", "1/29/54", "4/30/54", "1/14/54", "9/28/54", "12/1/54", 
> "2/8/55", "1/4/55", "11/4/54", "4/16/59", "5/1/58", "6/10/59", 
> "10/1/58", "9/20/60", "12/4/58", "2/17/60", "4/13/61", "1/18/61", 
> "6/2/61", "6/19/61", "1/25/62", "11/26/62", "3/14/62", "5/4/62", 
> "9/26/62", "8/10/62", "6/3/63", "11/6/63", "8/15/63", "10/11/63", 
> "12/11/63", "8/26/65", "10/27/71", "10/10/72", "1/10/73", "8/3/71", 
> "2/7/72", "7/1/70", "5/1/73", "2/24/78", "8/31/81", "9/17/80", 
> "4/16/82", "1/19/89", "5/21/08", "4/4/08", "5/26/83", "7/11/83", 
> "11/16/83", "6/30/83", "5/26/83", "5/26/83", "6/27/83", "5/13/83", 
> "6/29/83", "1/30/84", "10/25/84", "10/25/84", "10/25/84", "7/28/83", 
> "7/28/83", "10/31/85", "7/14/83", "1/31/84", "4/10/84", "8/1/83", 
> "7/28/83", "6/20/85", "6/20/85"), `FINAL ENDORSEMENT DATE` = c("", 
> "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", 
> "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", 
> "", "", "", "", "", "", "", "", "", "", "", "9/20/60", "", "", 
> "", "", "", "", "", "", "", "", "11/25/64", "", "", "", "", "8/24/65", 
> "", "2/14/67", "", "1/10/73", "1/10/73", "", "", "", "12/6/82", 
> "2/24/78", "8/31/81", "", "4/16/82", "5/24/91", "7/14/09", "4/4/08", 
> "5/26/83", "7/11/83", "11/16/83", "", "5/26/83", "5/26/83", "6/27/83", 
> "5/16/83", "6/29/83", "1/31/84", "10/25/84", "10/25/84", "10/25/84", 
> "7/28/83", "7/28/83", "10/31/85", "7/14/83", "1/31/84", "4/10/84", 
> "8/1/83", "7/28/83", "6/20/85", "6/20/85"), `ORIGINAL MORTGAGE AMOUNT` = c("875,000", 
> "1,480,000", "840,000", "725,000", "1,650,000", "1,225,000", 
> "319,000", "1,825,000", "35,000", "650,000", "760,000", "725,000", 
> "410,000", "165,000", "2,385,000", "701,000", "1,035,000", "692,000", 
> "490,000", "815,000", "942,000", "610,000", "935,000", "260,000", 
> "1,500,000", "830,000", "980,000", "660,000", "630,000", "265,000", 
> "139,000", "283,000", "4,301,100", "3,831,000", "4,482,200", 
> "313,700", "462,200", "641,800", "312,000", "312,100", "4,103,600", 
> "2,313,100", "5,626,500", "1,271,600", "1,447,200", "2,838,400", 
> "4,434,100", "3,640,900", "1,905,700", "2,893,200", "270,300", 
> "1,480,000", "3,048,165", "2,365,427", "1,138,600", "1,129,200", 
> "2,436,300", "752,500", "1,691,900", "450,000", "3,799,363", 
> "4,626,400", "484,500", "561,600", "10,795,600", "11,081,000", 
> "4,248,400", "3,714,938", "1,909,441", "436,825", "25,000", "348,700", 
> "173,400", "55,100", "4,311,301", "462,300", "1,170,000", "8,499,800", 
> "1,065,700", "13,387,500", "5,880,000", "1,500,000", "3,846,600", 
> "5,300,000", "1,750,000", "4,600,000", "5,653,000", "3,000,000", 
> "5,000,000", "5,000,000", "7,500,000", "1,600,000", "6,500,000", 
> "7,300,000", "1,350,000", "1,260,900", "8,081,100", "21,988,600", 
> "10,675,000", "4,600,000"), `FIRST PAYMENT DATE` = c("1/1/36", 
> "3/1/37", "4/1/38", "5/1/38", "10/1/38", "6/1/39", "12/1/39", 
> "2/1/39", "9/1/38", "11/1/39", "9/1/40", "3/1/40", "2/1/41", 
> "2/1/41", "7/1/40", "8/1/41", "8/1/40", "7/1/42", "12/1/40", 
> "2/1/42", "5/1/41", "2/1/42", "11/1/42", "1/1/43", "11/1/43", 
> "7/1/43", "5/1/44", "4/1/44", "3/1/44", "7/1/44", "3/1/44", "10/1/44", 
> "6/1/56", "6/1/56", "6/1/56", "10/1/54", "1/1/55", "3/1/55", 
> "2/1/55", "12/1/54", "6/1/59", "8/1/59", "12/1/60", "10/1/59", 
> "10/1/60", "6/1/60", "2/1/62", "1/1/63", "4/1/62", "6/1/63", 
> "3/1/62", "10/1/63", "4/1/65", "6/1/63", "1/1/64", "9/1/64", 
> "5/1/64", "9/1/64", "7/1/65", "6/1/64", "1/1/65", "9/1/65", "12/1/66", 
> "12/1/71", "4/1/73", "4/1/73", "2/1/73", "9/1/73", "7/1/70", 
> "5/1/73", "5/1/78", "10/1/81", "1/1/81", "7/1/82", "9/1/91", 
> "2/1/09", "6/1/08", "7/1/83", "9/1/83", "1/1/84", "8/1/83", "7/1/83", 
> "7/1/83", "8/1/83", "7/1/83", "8/1/83", "3/1/84", "12/1/84", 
> "12/1/84", "12/1/84", "9/1/83", "9/1/83", "12/1/85", "9/1/83", 
> "3/1/84", "6/1/84", "9/1/83", "9/1/83", "7/1/85", "7/1/85"), 
>    `MATURITY DATE` = c("4/1/50", "12/1/55", "7/1/64", "2/1/57", 
>    "7/1/52", "3/1/59", "1/1/65", "4/1/65", "12/1/63", "1/1/66", 
>    "11/1/61", "5/1/66", "11/1/68", "12/1/67", "7/1/72", "8/1/67", 
>    "10/1/66", "1/1/75", "2/1/67", "8/1/69", "7/1/68", "8/1/69", 
>    "5/1/70", "7/1/70", "5/1/71", "10/1/70", "8/1/71", "11/1/71", 
>    "10/1/71", "2/1/72", "10/1/71", "9/1/69", "12/1/94", "3/1/95", 
>    "11/1/94", "12/1/93", "3/1/94", "5/1/94", "4/1/94", "2/1/94", 
>    "10/1/91", "10/1/98", "2/1/00", "12/1/98", "9/1/99", "2/1/99", 
>    "9/1/00", "12/1/01", "3/1/01", "8/1/01", "6/1/97", "9/1/02", 
>    "2/1/03", "5/1/02", "12/1/02", "5/1/03", "4/1/03", "5/1/03", 
>    "6/1/04", "5/1/79", "12/1/03", "8/1/04", "11/1/05", "11/1/11", 
>    "3/1/13", "3/1/13", "1/1/13", "8/1/13", "4/1/00", "12/1/11", 
>    "2/1/04", "4/1/12", "1/1/13", "12/1/89", "8/1/21", "1/1/42", 
>    "5/1/36", "6/1/18", "8/1/18", "12/1/18", "7/1/18", "6/1/18", 
>    "6/1/18", "7/1/18", "6/1/18", "7/1/18", "2/1/19", "11/1/19", 
>    "11/1/19", "11/1/19", "8/1/18", "8/1/18", "11/1/20", "8/1/18", 
>    "2/1/19", "5/1/19", "8/1/18", "8/1/18", "7/1/20", "7/1/20"
>    ), `TERM IN MONTHS` = c(172L, 226L, 316L, 226L, 166L, 238L, 
>    302L, 315L, 304L, 315L, 255L, 315L, 334L, 323L, 385L, 313L, 
>    315L, 391L, 315L, 331L, 327L, 331L, 331L, 331L, 331L, 328L, 
>    328L, 332L, 332L, 332L, 332L, 300L, 463L, 466L, 462L, 471L, 
>    471L, 471L, 471L, 471L, 389L, 471L, 471L, 471L, 468L, 465L, 
>    464L, 468L, 468L, 459L, 424L, 468L, 455L, 468L, 468L, 465L, 
>    468L, 465L, 468L, 180L, 468L, 468L, 468L, 480L, 480L, 480L, 
>    480L, 480L, 358L, 464L, 310L, 367L, 385L, 90L, 360L, 396L, 
>    336L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 
>    420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 
>    420L, 420L, 421L, 421L), `INTEREST RATE` = c(4.5, 4.5, 4.5, 
>    4.5, 4.5, 4.5, 4, 3.5, 4.5, 3.5, 3.75, 3.5, 4, 4.25, 4.25, 
>    4, 3.5, 4, 3.5, 4, 4, 3.5, 3.5, 4, 4, 4, 4, 4, 4, 4, 4, 3.5, 
>    4.25, 4.25, 4.25, 4.25, 4.25, 4.25, 4.25, 4.25, 4.5, 4.5, 
>    4.5, 4.5, 5.25, 5.25, 5.25, 5.25, 5.25, 5.25, 5.25, 5.25, 
>    5.25, 5.25, 5.25, 5.25, 5.25, 5.25, 5.25, 5.25, 5.25, 5.25, 
>    5.25, 8.5, 7.5, 7.5, 7.5, 7.5, 5.25, 6, 9, 14.5, 13, 16.5, 
>    10.75, 6.95, 5.95, 12.25, 12.5, 13, 12.5, 12.25, 12.25, 12.5, 
>    12, 12.5, 13, 13.5, 13.5, 13.5, 13, 13, 11.5, 12.5, 13, 13.5, 
>    13, 13, 12, 12), `HOLDER NAME` = c("NEW YORK LIFE INSURANCE CO", 
>    "NEW YORK LIFE INSURANCE CO", "UNION CENTRAL LIFE INS CO", 
>    "NEW YORK LIFE INSURANCE CO", "NEW YORK LIFE INSURANCE CO", 
>    "UNION CENTRAL LIFE INS CO", "NAVY MUTUAL AID ASSN", "WELLS FARGO BANK NA-PRUDENTIAL", 
>    "", "WELLS FARGO BANK NA-PRUDENTIAL", "LIFE INSURANCE CO OF VIRGINIA", 
>    "WELLS FARGO BANK NA-PRUDENTIAL", "SECURITY MUTUAL LIFE INS CO", 
>    "NAVY MUTUAL AID ASSN", "NEW YORK LIFE INSURANCE CO", "NATIONAL LIFE INSURANCE CO", 
>    "WELLS FARGO BANK NA-PRUDENTIAL", "NATIONAL LIFE INSURANCE CO", 
>    "WELLS FARGO BANK NA-PRUDENTIAL", "", "NEW YORK LIFE INSURANCE CO", 
>    "WELLS FARGO BANK NA-PRUDENTIAL", "WELLS FARGO BANK NA-PRUDENTIAL", 
>    "KEY BANK CENTRAL NY", "NATIONAL LIFE INSURANCE CO", "NATIONAL LIFE INSURANCE CO", 
>    "NEW YORK LIFE INSURANCE CO", "UNION CENTRAL LIFE INS CO", 
>    "CONNECTICUT GEN LIFE INS CO", "SAN JUAN COUNTY BK", "SECURITY MUTUAL LIFE INS CO", 
>    "WELLS FARGO BANK NA-PRUDENTIAL", "SEAMENS BANK SAVINGS FSB-FDIC", 
>    "REPUBLIC NATIONAL BANK OF NEW", "LINCOLN SAVINGS BANK", 
>    "LIBERTY LENDING INC", "EMIGRANT BANK", "PROVIDENT BANK", 
>    "EMIGRANT BANK", "NEW YORK COMMUNITY BANK", "", "", "", "", 
>    "PFC CORPORATION", "DOLLAR-DRY DOCK BANK", "PHILADELPHIA SAVINGS FUND SOC", 
>    "PHILADELPHIA SAVINGS FUND SOC", "AMERICAN GEN LIFE AND ACCDT IN", 
>    "", "", "", "", "PHILADELPHIA SAVINGS FUND SOC", "SOVRAN BANK MARYLAND", 
>    "SWISS RE LIFE AND HEALTH AMERI", "", "", "AMERICAN SECURITY CORPORATION", 
>    "PUEBLO MORTGAGE INC", "JOHN HANCOCK LIFE INSURANCE CO", 
>    "CHASE MANHATTAN BANK", "RIGGS BANK NA", "FANNIE MAE", "STATE TEACHERS RT BOARD OHIO", 
>    "STATE TEACHERS RT BOARD OHIO", "FANNIE MAE", "RIGGS BANK NA", 
>    "PEOPLES LIFE INS CO WASHINGTON", "WHITE MOUNTAINS SERVICES CORP", 
>    "RIGGS BANK NA", "DRG FUNDING CORPORATION", "FANNIE MAE", 
>    "ALLFIRST BANK", "USGI INC", "WELLS FARGO BANK NA", "ZIEGLER FINANCING CORP", 
>    "YORK ASSOCIATES INC", "YORK ASSOCIATES INC", "YORK ASSOCIATES INC", 
>    "YORK ASSOCIATES INC", "YORK ASSOCIATES INC", "YORK ASSOCIATES INC", 
>    "YORK ASSOCIATES INC", "DRG FUNDING CORPORATION", "YORK ASSOCIATES INC", 
>    "YORK ASSOCIATES INC", "YORK ASSOCIATES INC", "YORK ASSOCIATES INC", 
>    "YORK ASSOCIATES INC", "YORK ASSOCIATES INC", "YORK ASSOCIATES INC", 
>    "YORK ASSOCIATES INC", "YORK ASSOCIATES INC", "YORK ASSOCIATES INC", 
>    "YORK ASSOCIATES INC", "YORK ASSOCIATES INC", "YORK ASSOCIATES INC", 
>    "YORK ASSOCIATES INC", "YORK ASSOCIATES INC"), `HOLDER CITY` = c("NEW YORK", 
>    "NEW YORK", "CINCINNATI", "NEW YORK", "NEW YORK", "CINCINNATI", 
>    "ARLINGTON", "FREDERICK", "", "FREDERICK", "RICHMOND", "FREDERICK", 
>    "BINGHAMTON", "ARLINGTON", "NEW YORK", "MONTPELIER", "FREDERICK", 
>    "MONTPELIER", "FREDERICK", "", "NEW YORK", "FREDERICK", "FREDERICK", 
>    "BUFFALO", "MONTPELIER", "MONTPELIER", "NEW YORK", "CINCINNATI", 
>    "HARTFORD", "FRIDAY HARBOR", "BINGHAMTON", "FREDERICK", "EAST HARTFORD", 
>    "NEW YORK", "JERICHO", "BARTLETT", "NEW YORK", "ISELIN", 
>    "NEW YORK", "CLEVELAND", "", "", "", "", "TUSTIN", "WHITE PLAINS", 
>    "PHILADELPHIA", "PHILADELPHIA", "NASHVILLE", "", "", "", 
>    "", "PHILADELPHIA", "BETHESDA", "NEW YORK", "", "", "BALTIMORE", 
>    "TUCSON", "BOSTON", "NEW YORK", "RIVERDALE", "PHILADELPHIA", 
>    "COLUMBUS", "COLUMBUS", "ATLANTA", "RIVERDALE", "LOUISVILLE", 
>    "FARMINGTON HILLS", "RIVERDALE", "WASHINGTON", "ATLANTA", 
>    "FREDERICK", "LA PLATA", "MC LEAN", "NEW ALBANY", "BETHESDA", 
>    "BETHESDA", "BETHESDA", "BETHESDA", "BETHESDA", "BETHESDA", 
>    "BETHESDA", "WASHINGTON", "BETHESDA", "BETHESDA", "BETHESDA", 
>    "BETHESDA", "BETHESDA", "BETHESDA", "BETHESDA", "BETHESDA", 
>    "BETHESDA", "BETHESDA", "BETHESDA", "BETHESDA", "BETHESDA", 
>    "BETHESDA", "BETHESDA"), `HOLDER STATE` = c("NY", "NY", "OH", 
>    "NY", "NY", "OH", "VA", "MD", "", "MD", "VA", "MD", "NY", 
>    "VA", "NY", "VT", "MD", "VT", "MD", "", "NY", "MD", "MD", 
>    "NY", "VT", "VT", "NY", "OH", "CT", "WA", "NY", "MD", "CT", 
>    "NY", "NY", "TN", "NY", "NJ", "NY", "OH", "", "", "", "", 
>    "CA", "NY", "PA", "PA", "TN", "", "", "", "", "PA", "MD", 
>    "NY", "", "", "MD", "AZ", "MA", "NY", "MD", "PA", "OH", "OH", 
>    "GA", "MD", "KY", "MI", "MD", "DC", "GA", "MD", "MD", "VA", 
>    "OH", "MD", "MD", "MD", "MD", "MD", "MD", "MD", "DC", "MD", 
>    "MD", "MD", "MD", "MD", "MD", "MD", "MD", "MD", "MD", "MD", 
>    "MD", "MD", "MD", "MD"), `SERVICER NAME` = c("No Data Available", 
>    "No Data Available", "No Data Available", "No Data Available", 
>    "No Data Available", "No Data Available", "No Data Available", 
>    "No Data Available", "No Data Available", "No Data Available", 
>    "No Data Available", "No Data Available", "No Data Available", 
>    "No Data Available", "No Data Available", "No Data Available", 
>    "No Data Available", "No Data Available", "No Data Available", 
>    "No Data Available", "No Data Available", "No Data Available", 
>    "No Data Available", "No Data Available", "No Data Available", 
>    "No Data Available", "No Data Available", "No Data Available", 
>    "No Data Available", "No Data Available", "No Data Available", 
>    "No Data Available", "No Data Available", "No Data Available", 
>    "No Data Available", "", "", "", "", "", "", "", "", "No Data Available", 
>    "", "No Data Available", "No Data Available", "", "No Data Available", 
>    "No Data Available", "", "", "No Data Available", "", "", 
>    "", "", "", "No Data Available", "", "", "No Data Available", 
>    "", "", "", "", "", "", "", "WHITE MOUNTAINS SERVICES CORP", 
>    "", "", "", "", "USGI INC", "WELLS FARGO BANK NA", "ZIEGLER FINANCING CORP", 
>    "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", 
>    "", "", "", "", "", "", "", ""), `SERVICER CITY` = c("", 
>    "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", 
>    "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", 
>    "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", 
>    "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", 
>    "", "", "", "", "", "", "", "", "FARMINGTON HILLS", "", "", 
>    "", "", "LA PLATA", "MC LEAN", "NEW ALBANY", "", "", "", 
>    "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", 
>    "", "", "", "", ""), `SERVICER STATE` = c("", "", "", "", 
>    "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", 
>    "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", 
>    "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", 
>    "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", 
>    "", "", "", "", "", "MI", "", "", "", "", "MD", "VA", "OH", 
>    "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", 
>    "", "", "", "", "", "", "", ""), `SECTION OF ACT CODE` = c("HRB", 
>    "HRB", "HRB", "HRB", "HRB", "HRB", "HRB", "HRB", "HRB", "HRB", 
>    "HRB", "HRB", "HRB", "HRB", "HRB", "HRB", "HRB", "HRB", "HRB", 
>    "HRB", "HRB", "HRB", "HRB", "HRB", "HRB", "HRB", "HRB", "HRB", 
>    "HRB", "HRB", "HRB", "HRB", "HRB", "HRB", "HRB", "HRB", "HRB", 
>    "HRB", "HRB", "HRB", "HRB", "HRB", "HRB", "HRB", "HRP", "HRB", 
>    "HRB", "HRB", "HRB", "HRB", "HRB", "HRB", "HRB", "HRB", "HRB", 
>    "HRP", "HRB", "HRB", "HRB", "HRB", "HRP", "HRB", "HRP", "HRB", 
>    "HRP", "HRP", "HRB", "HRB", "HRP", "HRP", "ZSB", "ZSB", "ZSB", 
>    "ZSB", "ZSJ", "ZSQ", "ZSQ", "HRL", "HRL", "HRL", "HRL", "HRL", 
>    "HRL", "HRL", "HRL", "HRL", "HRL", "HRL", "HRL", "HRL", "HRL", 
>    "HRL", "HRL", "HRL", "HRL", "HRL", "HRL", "HRL", "HRL", "HRL"
>    ), `SOA CATEGORY Sub Category` = c("207 Apartments", "207 Apartments", 
>    "207 Apartments", "207 Apartments", "207 Apartments", "207 Apartments", 
>    "207 Apartments", "207 Apartments", "207 Apartments", "207 Apartments", 
>    "207 Apartments", "207 Apartments", "207 Apartments", "207 Apartments", 
>    "207 Apartments", "207 Apartments", "207 Apartments", "207 Apartments", 
>    "207 Apartments", "207 Apartments", "207 Apartments", "207 Apartments", 
>    "207 Apartments", "207 Apartments", "207 Apartments", "207 Apartments", 
>    "207 Apartments", "207 Apartments", "207 Apartments", "207 Apartments", 
>    "207 Apartments", "207 Apartments", "207 Apartments", "207 Apartments", 
>    "207 Apartments", "207 Apartments", "207 Apartments", "207 Apartments", 
>    "207 Apartments", "207 Apartments", "207 Apartments", "207 Apartments", 
>    "207 Apartments", "207 Apartments", "207 Rental Projects", 
>    "207 Apartments", "207 Apartments", "207 Apartments", "207 Apartments", 
>    "207 Apartments", "207 Apartments", "207 Apartments", "207 Apartments", 
>    "207 Apartments", "207 Apartments", "207 Rental Projects", 
>    "207 Apartments", "207 Apartments", "207 Apartments", "207 Apartments", 
>    "207 Rental Projects", "207 Apartments", "207 Rental Projects", 
>    "207 Apartments", "207 Rental Projects", "207 Rental Projects", 
>    "207 Apartments", "207 Apartments", "207 Rental Projects", 
>    "207 Rental Projects", "241(a)/ 207 Improvements & Additions", 
>    "241(a)/ 207 Improvements & Additions", "241(a)/ 207 Improvements & Additions", 
>    "241(a)/ 207 Improvements & Additions", "241(a)/ 221-MIR(d)(3)&(d)(4) Improvements & Additions", 
>    "241(a)/ 232 /Improvements & Additions / Nursing Homes", 
>    "241(a)/ 232 /Improvements & Additions / Nursing Homes", 
>    "207/ 223(f)/ 244 Co-Insurance", "207/ 223(f)/ 244 Co-Insurance", 
>    "207/ 223(f)/ 244 Co-Insurance", "207/ 223(f)/ 244 Co-Insurance", 
>    "207/ 223(f)/ 244 Co-Insurance", "207/ 223(f)/ 244 Co-Insurance", 
>    "207/ 223(f)/ 244 Co-Insurance", "207/ 223(f)/ 244 Co-Insurance", 
>    "207/ 223(f)/ 244 Co-Insurance", "207/ 223(f)/ 244 Co-Insurance", 
>    "207/ 223(f)/ 244 Co-Insurance", "207/ 223(f)/ 244 Co-Insurance", 
>    "207/ 223(f)/ 244 Co-Insurance", "207/ 223(f)/ 244 Co-Insurance", 
>    "207/ 223(f)/ 244 Co-Insurance", "207/ 223(f)/ 244 Co-Insurance", 
>    "207/ 223(f)/ 244 Co-Insurance", "207/ 223(f)/ 244 Co-Insurance", 
>    "207/ 223(f)/ 244 Co-Insurance", "207/ 223(f)/ 244 Co-Insurance", 
>    "207/ 223(f)/ 244 Co-Insurance", "207/ 223(f)/ 244 Co-Insurance", 
>    "207/ 223(f)/ 244 Co-Insurance"), `TERM TYPE` = c("11", "11", 
>    "11", "11", "11", "11", "12", "11", "11", "11", "11", "11", 
>    "11", "11", "11", "11", "11", "11", "11", "11", "11", "11", 
>    "11", "11", "11", "11", "11", "11", "11", "11", "11", "11", 
>    "11", "11", "11", "11", "11", "11", "11", "11", "11", "11", 
>    "11", "11", "18", "21", "21", "21", "11", "19", "11", "11", 
>    "20", "21", "19", "11", "21", "11", "11", "11", "11", "15", 
>    "11", "11", "11", "11", "11", "21", "19", "11", "11", "11", 
>    "11", "11", "19", "11", "11", "11", "11", "11", "11", "11", 
>    "11", "11", "11", "11", "11", "11", "11", "11", "11", "11", 
>    "14", "11", "11", "11", "11", "11", "11", "11"), `TERMINATION TYPE DESCRIPTION` = c("Prepayment", 
>    "Prepayment", "Prepayment", "Prepayment", "Prepayment", "Prepayment", 
>    "SUPERSESSION", "Prepayment", "Prepayment", "Prepayment", 
>    "Prepayment", "Prepayment", "Prepayment", "Prepayment", "Prepayment", 
>    "Prepayment", "Prepayment", "Prepayment", "Prepayment", "Prepayment", 
>    "Prepayment", "Prepayment", "Prepayment", "Prepayment", "Prepayment", 
>    "Prepayment", "Prepayment", "Prepayment", "Prepayment", "Prepayment", 
>    "Prepayment", "Prepayment", "Prepayment", "Prepayment", "Prepayment", 
>    "Prepayment", "Prepayment", "Prepayment", "Prepayment", "Prepayment", 
>    "Prepayment", "Prepayment", "Prepayment", "Prepayment", "Maturity", 
>    "VOLUNTARY", "VOLUNTARY", "VOLUNTARY", "Prepayment", "Assignment", 
>    "Prepayment", "Prepayment", "Acquired", "VOLUNTARY", "Assignment", 
>    "Prepayment", "VOLUNTARY", "Prepayment", "Prepayment", "Prepayment", 
>    "Prepayment", "Conveyance", "Prepayment", "Prepayment", "Prepayment", 
>    "Prepayment", "Prepayment", "VOLUNTARY", "Assignment", "Prepayment", 
>    "Prepayment", "Prepayment", "Prepayment", "Prepayment", "Assignment", 
>    "Prepayment", "Prepayment", "Prepayment", "Prepayment", "Prepayment", 
>    "Prepayment", "Prepayment", "Prepayment", "Prepayment", "Prepayment", 
>    "Prepayment", "Prepayment", "Prepayment", "Prepayment", "Prepayment", 
>    "Prepayment", "Prepayment", "CANCELLED", "Prepayment", "Prepayment", 
>    "Prepayment", "Prepayment", "Prepayment", "Prepayment", "Prepayment"
>    ), `TYPE  Claim Non Claim ` = c("NONCLAIM", "NONCLAIM", "NONCLAIM", 
>    "NONCLAIM", "NONCLAIM", "NONCLAIM", "NONCLAIM", "NONCLAIM", 
>    "NONCLAIM", "NONCLAIM", "NONCLAIM", "NONCLAIM", "NONCLAIM", 
>    "NONCLAIM", "NONCLAIM", "NONCLAIM", "NONCLAIM", "NONCLAIM", 
>    "NONCLAIM", "NONCLAIM", "NONCLAIM", "NONCLAIM", "NONCLAIM", 
>    "NONCLAIM", "NONCLAIM", "NONCLAIM", "NONCLAIM", "NONCLAIM", 
>    "NONCLAIM", "NONCLAIM", "NONCLAIM", "NONCLAIM", "NONCLAIM", 
>    "NONCLAIM", "NONCLAIM", "NONCLAIM", "NONCLAIM", "NONCLAIM", 
>    "NONCLAIM", "NONCLAIM", "NONCLAIM", "NONCLAIM", "NONCLAIM", 
>    "NONCLAIM", "NONCLAIM", "NONCLAIM", "NONCLAIM", "NONCLAIM", 
>    "NONCLAIM", "CLAIM", "NONCLAIM", "NONCLAIM", "CLAIM", "NONCLAIM", 
>    "CLAIM", "NONCLAIM", "NONCLAIM", "NONCLAIM", "NONCLAIM", 
>    "NONCLAIM", "NONCLAIM", "CLAIM", "NONCLAIM", "NONCLAIM", 
>    "NONCLAIM", "NONCLAIM", "NONCLAIM", "NONCLAIM", "CLAIM", 
>    "NONCLAIM", "NONCLAIM", "NONCLAIM", "NONCLAIM", "NONCLAIM", 
>    "CLAIM", "NONCLAIM", "NONCLAIM", "NONCLAIM", "NONCLAIM", 
>    "NONCLAIM", "NONCLAIM", "NONCLAIM", "NONCLAIM", "NONCLAIM", 
>    "NONCLAIM", "NONCLAIM", "NONCLAIM", "NONCLAIM", "NONCLAIM", 
>    "NONCLAIM", "NONCLAIM", "NONCLAIM", "NONCLAIM", "NONCLAIM", 
>    "NONCLAIM", "NONCLAIM", "NONCLAIM", "NONCLAIM", "NONCLAIM", 
>    "NONCLAIM"), `TERM DATE` = c("4/1/39", "4/1/39", "9/1/40", 
>    "4/1/39", "2/1/49", "9/1/40", "9/1/44", "8/1/46", "1/1/50", 
>    "11/1/44", "7/1/54", "8/1/46", "11/1/41", "7/1/54", "12/1/39", 
>    "3/1/46", "8/1/46", "12/1/45", "11/1/44", "7/1/45", "11/1/45", 
>    "8/1/46", "8/1/46", "8/1/46", "10/1/46", "7/1/46", "9/1/47", 
>    "12/1/43", "7/1/46", "12/1/42", "5/1/44", "8/1/46", "8/1/65", 
>    "8/1/65", "8/1/65", "1/31/83", "1/31/83", "2/3/83", "1/31/83", 
>    "1/31/83", "12/7/72", "1/3/79", "12/4/79", "10/1/67", "10/1/99", 
>    "5/1/71", "4/1/70", "10/16/79", "10/1/67", "8/1/66", "2/27/75", 
>    "1/29/82", "12/1/66", "12/3/79", "4/4/75", "10/25/85", "1/30/80", 
>    "6/25/74", "12/19/72", "5/31/73", "7/1/94", "4/1/67", "3/19/87", 
>    "3/16/73", "2/13/86", "2/13/86", "5/24/82", "7/12/73", "12/8/76", 
>    "3/10/89", "3/19/87", "10/31/85", "5/24/82", "1/21/85", "8/30/95", 
>    "1/28/11", "11/30/10", "5/31/86", "5/31/86", "4/30/86", "11/20/84", 
>    "6/30/86", "6/30/86", "3/31/86", "1/16/87", "10/31/86", "12/31/85", 
>    "4/1/86", "4/1/86", "4/1/86", "3/31/86", "3/31/86", "8/3/90", 
>    "10/31/86", "6/30/86", "1/30/87", "4/30/86", "4/30/86", "2/27/87", 
>    "8/31/86"), TE = c("", "", "", "", "", "", "", "", "", "", 
>    "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", 
>    "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", 
>    "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", 
>    "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", 
>    "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", 
>    "", "", "", "", "", "", "", "", "", "", "", "", "", "", ""
>    ), TC = c("", "", "", "", "", "", "", "", "", "", "", "", 
>    "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", 
>    "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", 
>    "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", 
>    "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", 
>    "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", 
>    "", "", "", "", "", "", "", "", "", "", "", "", ""), Status = c(TRUE, 
>    TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, 
>    TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, 
>    TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, 
>    TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, 
>    TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, 
>    TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, 
>    TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, 
>    TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, 
>    TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, 
>    TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE)), .Names = c("HUD PROJECT NUMBER", 
> "PROPERTY NAME", "PROPERTY STREET", "PROPERTY CITY", "PROPERTY STATE", 
> "PROPERTY ZIP", "UNITS", "INITIAL ENDORSEMENT DATE", "FINAL ENDORSEMENT DATE", 
> "ORIGINAL MORTGAGE AMOUNT", "FIRST PAYMENT DATE", "MATURITY DATE", 
> "TERM IN MONTHS", "INTEREST RATE", "HOLDER NAME", "HOLDER CITY", 
> "HOLDER STATE", "SERVICER NAME", "SERVICER CITY", "SERVICER STATE", 
> "SECTION OF ACT CODE", "SOA CATEGORY Sub Category", "TERM TYPE", 
> "TERMINATION TYPE DESCRIPTION", "TYPE  Claim Non Claim ", "TERM DATE", 
> "TE", "TC", "Status"), row.names = c(NA, 100L), class = "data.frame")
> 
> 
> ______________________________________________
> R-help at r-project.org mailing list -- To UNSUBSCRIBE and more, see
> https://stat.ethz.ch/mailman/listinfo/r-help
> PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
> and provide commented, minimal, self-contained, reproducible code.

-- 
Peter Dalgaard, Professor,
Center for Statistics, Copenhagen Business School
Solbjerg Plads 3, 2000 Frederiksberg, Denmark
Phone: (+45)38153501
Office: A 4.23
Email: pd.mes at cbs.dk  Priv: PDalgd at gmail.com



More information about the R-help mailing list