Я пытаюсь выполнить прямую, обратную и пошаговую регрессию для некоторых данных; однако, резюме для всех из них выглядят примерно одинаково, поэтому мне было интересно, все ли я сделал правильно?
Выбор вперед
#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)