x<-c(20,25,30,35,40,45,50,55,60,65)
y<-c(13.2,15.1,16.4,17.1,17.9,18.7,19.6,21.1,22.5,24.3)
A<-data.frame(x,y)
plot(A$x,A$y)
lm.reg<-lm(y~x)
lm.reg
abline(lm.reg)
summary(lm.reg)
point<-dataframe(x=42)
point<-data.frame(x=42)
lm.pred<-predict(lm.reg,point,interval="prediction",level=0.95)
lm.pred
y<-c(13.2,15.1,16.4,17.1,17.9,18.7,19.6,21.1,22.5,24.3)
A<-data.frame(x,y)
plot(A$x,A$y)
lm.reg<-lm(y~x)
lm.reg
abline(lm.reg)
summary(lm.reg)
point<-dataframe(x=42)
point<-data.frame(x=42)
lm.pred<-predict(lm.reg,point,interval="prediction",level=0.95)
lm.pred
http://www.tuicool.com/articles/mqQjim