cchousing <-
structure(list(price = c(506.30854533750187, 614.48491846467425, 
754.78453312088232, 482.96243257537145, 587.97482434490109, 609.2420284381094, 
666.79547292717336, 572.03019758281596, 794.44739366529268, 582.12129878803353, 
637.76507507925555, 694.17527774636619, 556.73046444961869, 492.03310230510868, 
774.22289603085756, 454.64448122032553, 683.86045809212646, 599.58067180152261, 
697.28286921270831, 639.22651545396161, 905.08192052491449, 476.00741803561289, 
754.96382002900702, 791.46516422232537, 596.49377768281431, 565.17561162111326, 
643.72373026136165, 536.34418313685967, 675.22032702996489, 624.96367101773478, 
669.8938603762125, 627.89604010976484, 703.61643538120052, 567.58422795117542, 
518.33247260202427, 536.43395013082238, 423.40202208539677, 505.74155202363119, 
540.09380850995342, 571.3487432666484, 557.64137715685558, 400.08968248328711, 
511.82949398643916, 786.35474673476438, 658.24939301207371, 795.09204355803138, 
565.45162751585463, 586.91557647992408, 577.58385484487383, 476.12322346925873, 
512.17128523979568, 902.63013557312377, 539.77529466575061, 723.57155118509206, 
491.24273730050186, 538.58948877699299, 563.70289062400275, 689.58625268086325, 
709.92298027340826, 763.16187673259947, 417.17577932351458, 799.12425187552481, 
525.68556670061139, 611.81647625601227, 646.62347974807199, 552.62627976538215, 
429.49808296681454, 549.79922948888759, 581.80301381391348, 415.21175483104878, 
473.33139287264015, 906.34244084668762, 431.38652744284599, 1093.713503763068, 
453.9138269708792)), row.names = c(NA, -75L), class = c("tbl_df", 
"tbl", "data.frame"))