housing <-
structure(list(cost = c(506.30854533750198, 614.48491846467402, 
754.78453312088197, 482.962432575371, 587.97482434490098, 609.24202843810895, 
666.79547292717302, 572.03019758281596, 794.44739366529302, 582.12129878803398, 
637.76507507925601, 694.17527774636596, 556.73046444961903, 492.03310230510903, 
774.22289603085801, 454.64448122032599, 683.86045809212601, 599.58067180152295, 
697.28286921270796, 639.22651545396195, 905.08192052491404, 476.007418035613, 
754.96382002900702, 791.46516422232503, 596.49377768281397, 565.17561162111303, 
643.72373026136199, 536.34418313686001, 675.22032702996501, 624.96367101773501, 
669.89386037621296, 627.89604010976495, 703.61643538120097, 567.58422795117497, 
518.33247260202404, 536.43395013082204, 423.40202208539699, 505.74155202363102, 
540.09380850995296, 571.34874326664794, 557.64137715685604, 400.08968248328699, 
511.82949398643899, 786.35474673476403, 658.24939301207405, 795.09204355803104, 
565.45162751585497, 586.91557647992397, 577.58385484487405, 476.12322346925902, 
512.17128523979602, 902.63013557312399, 539.77529466575095, 723.57155118509195, 
491.24273730050197, 538.58948877699299, 563.70289062400298, 689.58625268086303, 
709.92298027340803, 763.16187673259901, 417.17577932351497, 799.12425187552503, 
525.68556670061105, 611.81647625601204, 646.62347974807199, 552.62627976538204, 
429.49808296681499, 549.79922948888805, 581.80301381391303, 415.21175483104901, 
473.33139287263998, 906.34244084668796, 431.38652744284599, 1093.7135037630701, 
453.91382697087897)), row.names = c(NA, -75L), class = c("tbl_df", 
"tbl", "data.frame"))