2026-03-06
hprice1)data(hprice1)
res <- lm(price ~ lotsize + sqrft + bdrms, data = hprice1)
# lmtestパッケージのresettestを使用
resettest(res, power = 2:3, type = "fitted")##
## RESET test
##
## data: res
## RESET = 4.6682, df1 = 2, df2 = 82, p-value = 0.01202