あんまり、当たらない曜日毎の予想（まあ、競馬の予想程度に思っていただきたい）
次の1000人超えは水曜日の予想。

日 fit lwr upr
816 816 816

月 fit lwr upr
544 493 595

火 fit lwr upr
798 682 913

水 fit lwr upr
1066 935 1197

木 fit lwr upr
1301 1135 1466

金 fit lwr upr
1048 919 1177

土 fit lwr upr
1109 981 1236

相関係数は、
> for(i in 2:7) cat(day[i],' : ',summary(LM[[i]])$r.squared,'\n')
月 : 0.9086839
火 : 0.8026629
水 : 0.8646371
木 : 0.8475512
金 : 0.8404378
土 : 0.8565624