2016-05-17 2 views
0

Пожалуйста, помогите мне выполнить домашнюю работу. У меня есть набор данных с информацией о продажах 10 разных магазинов. Я должен предсказать продажи на 2 месяца. Для моей модели я использовал столбец «Открыть» - в какой день магазин открыт или закрыт; и «Промо» - если в магазине есть промо-акции или нет. Я построил модель ой:Модель lm для прогнозирования продаж для 10 магазинов

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)} 

Но это не работает/

ответ

1

Не видя ваши данные, я не могу вам помочь с реальным моделирования, но ваш цикл должен выглядеть что-то еще вот так:

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

Это создает вектор всех моделей вашего магазина. Не забудьте изменить источник данных (data) с каждой итерацией, чтобы соответствовать данным правильного хранилища. Опять же, не видя ваших данных, я не могу вам помочь.

Для запуска прогнозов обращайтесь к моделям с помощью model[1] ... model[10].

+0

На самом деле это вряд ли сработает. 'model' должен быть списком здесь' model <- list() ', и вам нужно будет хранить в нем элементы с помощью' model [[Store]] <- ', а не' model [Store] <- ' – MrFlick

Смежные вопросы