Обчислення цінової еластичності
Тепер, коли ви знаєте про цінові еластичності, перевірмо, наскільки еластичні ціни для преміального продукту в столичному регіоні! Навчальний і валідаційний набори даних уже підготовлені для вас і збережені в об'єктах bev_xts_train і bev_xts_valid.
Продажі для преміального продукту вже завантажені в робочий простір як MET_hi. Спершу вам потрібно витягти ціни з об'єкта bev_xts_train. Назви стовпців із цінами в об'єкті bev_xts_train — MET.hi.p.
Ця вправа є частиною курсу
Прогнозування попиту на товари в R
Інструкції до вправи
- Збережіть логарифм цін для преміального продукту (
MET.hi.p) як вектор. - Завантажте логарифм продажів і логарифм цін у датафрейм.
- Побудуйте регресійну модель, що прогнозує логарифм продажів за логарифмом цін.
Інтерактивна практична вправа
Спробуйте виконати цю вправу, доповнивши цей зразок коду.
# 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 = ___)