Wooldridge Source: K.A. Kiel and K.T. McClain (1995), “House Prices During Siting Decision Stages: The Case of an Incinerator from Rumor Through Operation,” Journal of Environmental Economics and Management 28, 241-255. Professor McClain kindly provided the data, of which I used only a subset. Data loads lazily.
data('kielmc')
A data.frame with 321 observations on 25 variables:
year: 1978 or 1981
age: age of house
agesq: age^2
nbh: neighborhood, 1-6
cbd: dist. to cent. bus. dstrct, ft.
intst: dist. to interstate, ft.
lintst: log(intst)
price: selling price
rooms: # rooms in house
area: square footage of house
land: square footage lot
baths: # bathrooms
dist: dist. from house to incin., ft.
ldist: log(dist)
wind: prc. time wind incin. to house
lprice: log(price)
y81: =1 if year == 1981
larea: log(area)
lland: log(land)
y81ldist: y81*ldist
lintstsq: lintst^2
nearinc: =1 if dist <= 15840
y81nrinc: y81*nearinc
rprice: price, 1978 dollars
lrprice: log(rprice)
https://www.cengage.com/cgi-wadsworth/course_products_wp.pl?fid=M20b&product_isbn_issn=9781111531041
pages 220, 454-457, 475, 477
#> 'data.frame': 321 obs. of 25 variables: #> $ year : int 1978 1978 1978 1978 1978 1978 1978 1978 1978 1978 ... #> $ age : int 48 83 58 11 48 78 22 78 42 41 ... #> $ agesq : num 2304 6889 3364 121 2304 ... #> $ nbh : int 4 4 4 4 4 4 4 4 4 4 ... #> $ cbd : num 3000 4000 4000 4000 4000 3000 4000 3000 3000 3000 ... #> $ intst : num 1000 1000 1000 1000 2000 2000 2000 2000 2000 2000 ... #> $ lintst : num 6.91 6.91 6.91 6.91 7.6 ... #> $ price : num 60000 40000 34000 63900 44000 46000 56000 38500 60500 55000 ... #> $ rooms : int 7 6 6 5 5 6 6 6 8 5 ... #> $ area : int 1660 2612 1144 1136 1868 1780 1700 1556 1642 1443 ... #> $ land : num 4578 8370 5000 10000 10000 ... #> $ baths : int 1 2 1 1 1 3 2 2 2 2 ... #> $ dist : num 10700 11000 11500 11900 12100 10000 11700 10200 10500 11000 ... #> $ ldist : num 9.28 9.31 9.35 9.38 9.4 ... #> $ wind : int 3 3 3 3 3 3 3 3 3 3 ... #> $ lprice : num 11 10.6 10.4 11.1 10.7 ... #> $ y81 : int 0 0 0 0 0 0 0 0 0 0 ... #> $ larea : num 7.41 7.87 7.04 7.04 7.53 ... #> $ lland : num 8.43 9.03 8.52 9.21 9.21 ... #> $ y81ldist: num 0 0 0 0 0 0 0 0 0 0 ... #> $ lintstsq: num 47.7 47.7 47.7 47.7 57.8 ... #> $ nearinc : int 1 1 1 1 1 1 1 1 1 1 ... #> $ y81nrinc: int 0 0 0 0 0 0 0 0 0 0 ... #> $ rprice : num 60000 40000 34000 63900 44000 46000 56000 38500 60500 55000 ... #> $ lrprice : num 11 10.6 10.4 11.1 10.7 ... #> - attr(*, "time.stamp")= chr "25 Jun 2011 23:03"