setwd("C:/Users/IBM/Desktop/研一课程/2.2回归分析/回归作业") #设定当前的工作目录
shuju=read.table("shuju.txt",header=T)
shuju #读取数据
#前进法
#采用最优子集函数进行前进法,以调整复决定系数为标准
shuju.regforward <- regsubsets(y~x1+x2+x3+x4+x5+x6+x7,data=shuju[,-1],nvmax=7,method="forward")
shuju.regfs <- summary(shuju.regforward)
shuju.regfs
shuju.regfs$adjr2
coef(shuju.regforward,3)
#采用AIC原则自动选择模型-前进法
shuju.reg <- lm(y~.,data=shuju[,-1])
shuju.regforward2 <- step(shuju.reg,direction="forward")#按照AIC原则自动选择模型
summary(shuju.regforward2)
shuju.reg <- lm(y~x1