>>246
今月の総数の予測は
> predict(lm,new,interval = 'confidence')
fit lwr upr
1 5779.214 5196.727 6361.701
の結果をみてみると

今週の総数は
> thisweek=c(708, 418, 856, 944, 1337, 783, 814)
> sum(thisweek)
[1] 5860

日曜日の陽性数でわりとその週の総数が当たるみたいだな。
今週のデータを加えて、日曜日の総数と週の総数の相関係数を計算してみると

Residual standard error: 349.7 on 25 degrees of freedom
Multiple R-squared: 0.9296, Adjusted R-squared: 0.9267

よい相関関係にあるな。