>>241
横軸に日曜日の陽性者数、縦軸に1週間の総数をグラフにしてみた。
https://i.imgur.com/onZOdkc.png

今日（１２/２７日曜日）の感染者数708人で線形回帰すると
今月の総数の予測は
> predict(lm,new,interval = 'confidence')
fit lwr upr
1 5779.214 5196.727 6361.701
各曜日の予測を計算してみると
日 fit lwr upr
1 708 708 708
月 fit lwr upr
1 507.6391 458.0591 557.219
火 fit lwr upr
1 593.0795 489.3003 696.8586
水 fit lwr upr
1 904.2954 763.8492 1044.742
木 fit lwr upr
1 996.9032 842.5825 1151.224
金 fit lwr upr
1 1000.532 873.6893 1127.375
土 fit lwr upr
1 1068.765 948.5815 1188.948
1000人を超えるのは金曜日と出た。

来週になったら、どのくらいあたったか検討してみよう。