2016-05-17 25 views
0

Bitte, helfen Sie mir mit meinen Hausaufgaben. Ich habe einen Datensatz mit Informationen über den Verkauf von 10 verschiedenen Geschäften. Ich sollte die Verkäufe auf den 2 Monaten vorhersagen. Für mein Modell habe ich die Spalte "Open" verwendet - an welchem ​​Tag der Laden geöffnet oder geschlossen ist; und "Promo" - wenn ein Geschäft eine Promotion hat oder nicht. Ich habe ein lm Modell gebaut:lm-modell für die prognose von verkäufen für 10 geschäfte

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

Dieses Modell für 1 Shop funktioniert, aber, wie ich dieses Modell für alle 10 Filialen und vorhersagen, den Umsatz bauen?

persönlich denke, ich war so etwas wie:

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

Aber es funktioniert nicht/

Antwort

1

Ohne Ihre Daten zu sehen, kann ich Ihnen nicht mit der eigentlichen Modellierung helfen, aber Ihre Schleife sollte aussehen etwas mehr wie folgt:

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

Dies erstellt einen Vektor aller Ihrer Geschäftsmodelle. Achten Sie darauf, Ihre Datenquelle (data) bei jeder Iteration ebenfalls zu ändern, damit sie mit den Daten des richtigen Geschäfts übereinstimmt. Auch ohne Ihre Daten zu sehen, kann ich Ihnen nicht wirklich helfen, das einzurichten.

Um Vorhersagen auszuführen, greifen Sie auf die Modelle mit model[1] ... model[10] zu.

+0

Eigentlich wird das wahrscheinlich nicht funktionieren. 'model' sollte eine Liste hier sein' model <- list() 'und du müsstest Elemente darin speichern mit' model [[Store]] <- ', nicht' model [Store] <- ' – MrFlick