20/12/27 18:15:36.75 Wj30LPWM.net
LM=vector('list',length=7)
day=c('日','月','火','水','木','金','土')
for(i in 1:7){
LM[[i]]=lm(data[,i] ~ x)
cat(day[i])
print(predict(LM[[i]],new,interval = 'conf'))
}
20/12/27 18:15:36.75 Wj30LPWM.net
LM=vector('list',length=7)
day=c('日','月','火','水','木','金','土')
for(i in 1:7){
LM[[i]]=lm(data[,i] ~ x)
cat(day[i])
print(predict(LM[[i]],new,interval = 'conf'))
}