#第三章第一問

#復(fù)制數(shù)據(jù)到Excel里，另存為CSV格式，讀CSV比讀Excel方便

#找到屬性，將路徑粘進來，注意將\全部改為/，并將數(shù)據(jù)命名為data3

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

#將data3的第一列數(shù)據(jù)命名為x，y同理

x<-data3[,1];x

y<-data3[,2];y

#lm函數(shù)構(gòu)建一元線性回歸

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

summary(lm.reg1)

#x=80時95%置信度下的置信區(qū)間計算（不是很會，把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函數(shù)構(gòu)建多元線性回歸

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