21/01/03 16:38:03.23 5iQ6OBh4.net
今日が、816だったので
data=matrix(positives,ncol=7,b=T)
y=apply(data,1,sum)
x=data[,1]
plot(y~x,bty='n',pch=19)
lm=lm(y~x)
summary(lm)
abline(lm)
sunday=816
new=data.frame(x=sunday)
predict(lm,new,interval = 'confidence')
今週の総数予想
> predict(lm,new,interval = 'confidence')
fit lwr upr
6680.85 6139.249 7222.451