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
str(kielmc)
#> '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"