Začněte nyníZačněte zdarma

Výpočet cenové elasticity

Teď, když víš, co je cenová elasticita, pojďme zjistit, jak elastické jsou ceny prémiového produktu v metropolitním regionu! Trénovací a validační datové sady už jsou připravené a uložené v objektech bev_xts_train a bev_xts_valid.

Prodeje prémiového produktu máš v pracovním prostoru načtené jako MET_hi. Nejdřív je potřeba z objektu bev_xts_train extrahovat ceny. Název sloupce s cenami v objektu bev_xts_train je MET.hi.p.

Toto cvičení je součástí kurzu

Předpovídání poptávky po produktech v R

Zobrazit kurz

Pokyny k cvičení

  • Ulož logaritmus cen prémiového produktu (MET.hi.p) jako vektor.
  • Načti logaritmus prodejů a logaritmus cen do datového rámce.
  • Sestav regresní model, který predikuje logaritmus prodejů na základě logaritmu cen.

Interaktivní cvičení na vyzkoušení si v praxi

Vyzkoušejte si toto cvičení dokončením tohoto ukázkového kódu.

# 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 = ___)
Upravit a spustit kód