r - 如何在 R 中执行前向选择、后向选择和逐步回归？

Question

我正在尝试对某些数据执行向前、向后和逐步回归；但是，所有这些摘要看起来都非常相似，所以我想知道我是否做对了一切？

前向选择

#Forward Selection
regA <-  step(lm(Rut ~ Visc + Surface + Run + Voids + Visc*Run 
                  + Surface*Run + Voids*Run,data=dat),
               direction="forward")
regA
summary(regA)

向后消除

lmB <- step(lm(Rut ~ Visc + Surface + Run + Voids + Visc*Run 
        + Surface*Run + Voids*Run,data=dat),direction="backward")
lmB
summary(lmB)

逐步

reg1C <-  lm(Rut ~ Visc + Surface + Run + Voids + Visc*Run 
                  + Surface*Run + Voids*Run,data=dat)
step(reg1C)
summary(reg1C)

Answer 1

假设您正在尝试执行回归来预测房屋的价格。假设我们的一些变量是卧室、浴室、房屋大小、上市日期和 build 年份。有关使用 R 的向前、向后和逐步自动选择技术，请参见下文。

#Forward
nullmod <- lm(Price ~ 1, data = dat)
fullmod <- lm(Price ~ Beds + Baths + size + Date + Year 
             + AshburnMetro,data=dat)
reg1A <- step(nullmod, scope = list(lower = nullmod, upper = fullmod),
              direction="forward")

reg1A
str(summary(reg1A))

#Backwards
fullmod <- lm(Price ~ 1, data = dat)
nullmod <- lm(Price ~ Beds + Baths + size + Date + Year 
              + AshburnMetro,data=dat)
reg1B <- step(nullmod, scope = list(lower = fullmod, upper = nullmod),
              direction="backward")

reg1B
str(summary(reg1B))
summary(reg1B)

#Stepwise
fullmod <- lm(Price ~ 1, data = dat)
nullmod <- lm(Price ~ Beds + Baths + size + Date + Year 
             + AshburnMetro,data=dat)
reg1C <- step(nullmod, scope = list(lower = fullmod, upper = nullmod),
              direction="both")

reg1C
str(summary(reg1C))