elmhurst <-
structure(list(family_income = c(92.921999999999997, 0.25, 53.091999999999999, 
50.200000000000003, 137.613, 47.957000000000001, 113.53400000000001, 
168.57900000000001, 208.11500000000001, 12.523, 119.822, 50.563000000000002, 
16.120000000000001, 206.93199999999999, 68.677999999999997, 73.597999999999999, 
218.12, 89.983000000000004, 271.97399999999999, 118.16500000000001, 
108.395, 235.52199999999999, 78.926000000000002, 76.853999999999999, 
98.495999999999995, 134.58600000000001, 75.156999999999996, 135.857, 
79.447999999999993, 80.858000000000004, 86.140000000000001, 40.490000000000002, 
143.33699999999999, 97.664000000000001, 74.712999999999994, 178.79499999999999, 
71.549999999999997, 92.605000000000004, 62.545999999999999, 0, 
159.98099999999999, 40.396999999999998, 85.203000000000003, 27.164000000000001, 
146.39699999999999, 14.089, 217.44300000000001, 140.09299999999999, 
104.14700000000001, 83.332999999999998), gift_aid = c(21.719999999999999, 
27.469999999999999, 27.75, 27.219999999999999, 18, 18.52, 13, 
13, 14, 25.469999999999999, 21, 17.475999999999999, 22.469999999999999, 
11, 25.719999999999999, 32.719999999999999, 23, 16, 20, 24, 15.5, 
7, 20, 23.52, 14, 10, 21.120000000000001, 21, 27.5, 20.550000000000001, 
14.300000000000001, 18.32, 18, 10, 21, 13.6, 20.469999999999999, 
21, 21.600000000000001, 27.469999999999999, 25.814, 25.969999999999999, 
25.558, 20.469999999999999, 17, 20.420000000000002, 20, 15, 17.559999999999999, 
23.5), price_paid = c(14.279999999999999, 8.5299999999999994, 
14.25, 8.7799999999999994, 24, 23.48, 23, 29, 28, 16.530000000000001, 
15, 18.524000000000001, 13.529999999999999, 25, 16.280000000000001, 
9.2799999999999994, 19, 20, 22, 18, 26.5, 35, 16, 18.48, 22, 
32, 20.879999999999999, 21, 14.5, 15.449999999999999, 27.699999999999999, 
23.68, 24, 26, 15, 22.399999999999999, 15.529999999999999, 15, 
14.4, 14.529999999999999, 10.186, 10.029999999999999, 16.442, 
21.530000000000001, 25, 21.579999999999998, 22, 21, 24.440000000000001, 
18.5)), row.names = c(NA, -50L), class = c("tbl_df", "tbl", "data.frame"
))