Prijselasticiteit berekenen
Nu je weet wat prijselasticiteiten zijn, gaan we kijken hoe elastisch de prijzen zijn voor het high-end product in de metropolitane regio! De grote trainings- en validatiesets zijn al voor je aangemaakt en staan in de objecten bev_xts_train en bev_xts_valid.
De verkopen voor het high-end product staan al in de werkruimte als MET_hi. Je moet eerst de prijzen uit het object bev_xts_train halen. De kolomnaam voor prijzen in het object bev_xts_train is MET.hi.p.
Deze oefening maakt deel uit van de cursus
Vraag naar producten voorspellen in R
Oefeninstructies
- Sla het logaritme van de prijzen voor het high-end product (
MET.hi.p) op als een vector. - Laad het logaritme van de verkopen en het logaritme van de prijzen in een data frame.
- Bouw een regressiemodel dat het logaritme van de verkopen voorspelt met het logaritme van de prijzen.
Praktische interactieve oefening
Probeer deze oefening eens door deze voorbeeldcode in te vullen.
# 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 = ___)