20/12/27 17:59:14.23 Wj30LPWM.net
data=read.table('clipboard')
y=apply(data,1,sum)
x=data[,1]
plot(y~x,bty='n',pch=19)
lm=lm(y~x)
sunday=708
new=data.frame(x=sunday)
predict(lm,new,interval = 'prediction')
predict(lm,new,interval = 'confidence')
20/12/27 17:59:14.23 Wj30LPWM.net
data=read.table('clipboard')
y=apply(data,1,sum)
x=data[,1]
plot(y~x,bty='n',pch=19)
lm=lm(y~x)
sunday=708
new=data.frame(x=sunday)
predict(lm,new,interval = 'prediction')
predict(lm,new,interval = 'confidence')