Beräkna priselasticitet
Nu när du känner till priselasticiteter är det dags att undersöka hur elastiska priserna är för premiumprodukt i storstadsregionen! Tränings- och valideringsdatamängder har redan skapats åt dig och lagras i objekten bev_xts_train och bev_xts_valid.
Försäljningsdata för premiumprodukten finns redan inläst i arbetsytan som MET_hi. Du behöver först extrahera priserna ur objektet bev_xts_train. Kolumnnamnet för priser i bev_xts_train är MET.hi.p.
Den här övningen är en del av kursen
Prognostisering av produktefterfrågan i R
Övningsinstruktioner
- Spara logaritmen av priserna för premiumprodukten (
MET.hi.p) som en vektor. - Läs in logaritmen av försäljningen och logaritmen av priserna i en dataram.
- Bygg en regressionsmodell som förutsäger logaritmen av försäljningen utifrån logaritmen av priserna.
Interaktiv övning med praktiskt arbete
Testa den här övningen genom att slutföra den här exempelkoden.
# Save the prices of each product
l_MET_hi_p <- as.vector(___(bev_xts_train[,"___"]))
# Save as a data frame
MET_hi_train <- data.frame(as.vector(log(MET_hi)), l_MET_hi_p)
colnames(MET_hi_train) <- c("log_sales", "log_price")
# Calculate the regression
model_MET_hi <- lm(___ ~ ___, data = ___)