data(hprice2, package='wooldridge')
res <- lm(log(price)~log(nox)+log(dist)+rooms+I(rooms^2)+
stratio,data=hprice2)
summary(res)
# Using poly(...):
res <- lm(log(price)~log(nox)+log(dist)+poly(rooms,2,raw=TRUE)+
stratio,data=hprice2)
summary(res)
