统计预测与决策；慕课第三章作业；r文件代码

#第三章第一问

#复制数据到Excel里，另存为CSV格式，读CSV比读Excel方便

#找到属性，将路径粘进来，注意将\全部改为/，并将数据命名为data3

data3<-read.csv("C:/Users/ASUS/Desktop/3.csv")

#将data3的第一列数据命名为x，y同理

x<-data3[,1];x

y<-data3[,2];y

#lm函数构建一元线性回归

lm.reg1<-lm(y~1+x)

summary(lm.reg1)

#x=80时95%置信度下的置信区间计算（不是很会，把r语言例题粘过来直接用了）

p=data.frame(x=80)

lm.pred1<-predict(lm.reg1,p,interval="prediction",level=0.95)

lm.pred1

#第二问同理

data4<-read.csv("C:/Users/ASUS/Desktop/4.csv")

b<-data4[,1];b

a1<-data4[,2];a1

a2<-data4[,3];a2

#lm函数构建多元线性回归

lm.reg2<-lm(b~a1+a2)

summary(lm.reg2)

q=data.frame(a1=12000,a2=13000)

lm.pred2<-predict(lm.reg2,q,interval="prediction",level=0.95)

lm.pred2