setwd("C:/Users/IBM/Desktop/研一课程/2.2回归分析/回归作业") #设定当前的工作目录
shuju=read.table("shuju.txt",header=T)
shuju #读取数据
#采用AIC原则自动选择模型-前进法
library(MASS)
stepAIC(lm(y~.,data=shuju[,-1])) #146.11
stepAIC(lm(y~,data=shuju[,-1])) #181.53
stepAIC(lm(y~x3,data=shuju[,-1])) #204.33
stepAIC(lm(y~x4,data=shuju[,-1])) #172.52min
stepAIC(lm(y~x5,data=shuju[,-1])) #182.18
stepAIC(lm(y~x6,data=shuju[,-1])) #172.76
stepAIC(lm(y~x7,data=shuju[,-1])) #204.22
stepAIC(lm(y~x4+x1,data=shuju[,-1])) #155.75min
stepAIC(lm(y~x4+x2,data=shuju[,-1])) #174.14
stepAIC(lm(y~x4+x3,data=shuju[,-1])) #172.9
stepAIC(lm(y~x4+x5,data=shuju[,-1])) #173.71
stepAIC(lm(y~x4+x6,data=shuju[,-1])) #168.67
stepAIC(lm(y~x4+x7,data=shuju[,-1])) #174.35
stepAIC(lm(y~x4+x1+x2,da