student_housing <-
structure(list(price = c(553, 926, 456, 686, 663, 1067, 518, 
615, 673, 543, 645, 518, 490, 645, 466, 636, 572, 413, 635, 553, 
828, 727, 683, 596, 706, 555, 657, 792, 503, 547, 636, 710, 829, 
640, 751, 802, 574, 498, 442, 658, 659, 521, 786, 747, 607, 634, 
522, 990, 514, 524, 669, 538, 623, 504, 510, 500, 741, 546, 546, 
569, 886, 840, 509, 596, 680, 583, 438, 558, 723, 512, 535, 606, 
593, 538, 642, 556, 629, 601, 572, 489, 562, 439, 607, 659, 624, 
484, 743, 662, 547, 553, 1175, 594, 590, 587, 611, 587, 517, 
512, 792, 939, 452, 606, 637, 618, 570, 649, 531, 411, 641, 642, 
482, 891, 752, 947, 461, 621, 546, 658, 591, 572, 623, 748, 608, 
489, 671, 758, 570, 1070, 503, 435, 633, 613, 481, 565, 679, 
573, 764, 589, 580, 606, 795, 742, 702, 595, 591, 534, 785, 589, 
559, 516, 598, 690, 534, 585, 506, 617, 547, 651, 516, 634, 373, 
679, 593, 727, 571, 476, 519, 519, 666, 507, 449, 569, 454, 478, 
730)), row.names = c(NA, -175L), class = c("tbl_df", "tbl", "data.frame"
))