多元回归分析r语言代码

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