"home" <-
structure(list(old = c(64200, 72100, 87600, 59000, 83200, 49100, 
79600, 69300, 93100, 105400, 74500, 105900, 82600, 77800, 77200
), new = c(257500, 276800, 364600, 160400, 333500, 145600, 350200, 
205200, 599300, 514400, 309700, 437000, 306400, 354400, 324800
)), .Names = c("old", "new"), row.names = c("1", "2", "3", "4", 
"5", "6", "7", "8", "9", "10", "11", "12", "13", "14", "15"), class = "data.frame")