y=c(160,260,210,265,240,220,275,160,275,250)
x1=c(70,75,65,74,72,68,78,66,70,65)
x2=c(35,40,40,42,38,45,42,36,44,42)
x3=c(1,2.4,2,3,1.2,1.5,4,2,3.2,3)
shuju<-data.frame(y,x1,x2,x3)
shuju
cor(shuju) #(1)变量间相关系数阵
shuju.reg=lm(y~.,data=shuju)#(2)求三元线性回归方程(3)拟合优度检验
summary(shuju.reg)#(3)拟合优度检验(4)(5)回归方程、回归系数显著性检验
shuju.reg1=lm(y~x1+x2,data=shuju)#(6)剔除不显著的回归系数
summary(shuju.reg1)
stdshuju<-scale(shuju, center=T,scale=T)#对各列数据进行标准化
shuju.stdreg <- lm(y~x1+x2,data=data.frame(stdshuju))
summary(shuju.stdreg)#(8)求标准化回归方程
confint(shuju.reg1) #(7)每一个回归系数的区间估计
shuju.pred1<-predict(shuju.reg1,newdata=data.frame(x1=75,x2=42)) #(9)预测y0
shuju.pred1 #(9)预测y0
shuju.pred2<-pr
x1=c(70,75,65,74,72,68,78,66,70,65)
x2=c(35,40,40,42,38,45,42,36,44,42)
x3=c(1,2.4,2,3,1.2,1.5,4,2,3.2,3)
shuju<-data.frame(y,x1,x2,x3)
shuju
cor(shuju) #(1)变量间相关系数阵
shuju.reg=lm(y~.,data=shuju)#(2)求三元线性回归方程(3)拟合优度检验
summary(shuju.reg)#(3)拟合优度检验(4)(5)回归方程、回归系数显著性检验
shuju.reg1=lm(y~x1+x2,data=shuju)#(6)剔除不显著的回归系数
summary(shuju.reg1)
stdshuju<-scale(shuju, center=T,scale=T)#对各列数据进行标准化
shuju.stdreg <- lm(y~x1+x2,data=data.frame(stdshuju))
summary(shuju.stdreg)#(8)求标准化回归方程
confint(shuju.reg1) #(7)每一个回归系数的区间估计
shuju.pred1<-predict(shuju.reg1,newdata=data.frame(x1=75,x2=42)) #(9)预测y0
shuju.pred1 #(9)预测y0
shuju.pred2<-pr