lm模型用于预测10家商店的销售额

Question

请帮助我完成我的作业。 我有一个数据集，其中包含10个不同商店的销售信息。我应该预测2个月的销量。对于我的模型，我使用“打开”栏 - 商店开放或关闭的那一天;和“促销” - 如果商店有促销与否。  我已经建立了一个lm模型：

m.s<-lm(Sales~Open+Promo, data)
sale<-predict(m.s, newdata, ...)

此型号适用于1家商店，但我如何为所有10家商店建立此模型并预测销售？

就我个人而言，我想的是：

bn<- for(Store in 1:10 )
  {m.sales7<-lm(Sales~Open+Promo, data)}

但它不起作用/

Answer 1

如果没有看到您的数据，我无法帮助您进行实际建模，但您的循环应该看起来更像这样：

for(Store in 1:10 ) {
   model[Store] <- lm(Sales~Open+Promo, data)
}

这会创建所有商店模型的矢量。请务必在每次迭代时更改数据源（data），以匹配正确的商店数据。再一次，在没有看到你的数据的情况下，我无法真正帮助你设置它。

要运行预测，请使用model[1] ... model[10]访问模型。