# NOT RUN {
##mtcars data is used as an example.
data(mtcars)
fit1 <- lm(mpg~1, mtcars)
summary(SignifReg(fit1))
summary(SignifReg(fit1, scope=mtcars ,criterion="r-adj", direction="forward"
,correction="None", trace=TRUE))
summary(SignifReg(fit1, scope=~.+disp+cyl+wt+qsec, criterion="p-value", direction="both",
correction="FDR", trace=TRUE))
fit2 <- lm(mpg~., mtcars)
summary(SignifReg(fit2, scope=~.-disp-cyl-wt-hp-drat-qset-carb , direction="backward",
correction="Bonf", trace=TRUE))
summary(SignifReg(fit2, scope=mtcars ,criterion="AIC", direction="both",
correction="None", trace=TRUE))
# }
Run the code above in your browser using DataLab