การคำนวณความยืดหยุ่นของราคา
เมื่อเข้าใจเรื่องความยืดหยุ่นของราคาแล้ว มาดูกันว่าราคาของสินค้าระดับสูงในเขตเมืองมีความยืดหยุ่นมากแค่ไหน ชุดข้อมูลสำหรับการฝึกและการตรวจสอบได้ถูกสร้างไว้ให้แล้ว และเก็บอยู่ในออบเจกต์ bev_xts_train และ bev_xts_valid
ข้อมูลยอดขายของสินค้าระดับสูงถูกโหลดไว้ใน workspace แล้วในชื่อ MET_hi ขั้นแรกให้ดึงข้อมูลราคาออกจากออบเจกต์ bev_xts_train โดยชื่อคอลัมน์ราคาในออบเจกต์ bev_xts_train คือ MET.hi.p
แบบฝึกหัดนี้เป็นส่วนหนึ่งของหลักสูตร
การพยากรณ์ความต้องการสินค้าใน R
คำแนะนำการฝึกหัด
- บันทึกค่า log ของราคาสินค้าระดับสูง (
MET.hi.p) เป็นเวกเตอร์ - โหลดค่า log ของยอดขายและค่า log ของราคาลงใน data frame
- สร้างโมเดล regression เพื่อพยากรณ์ค่า log ของยอดขายจากค่า log ของราคา
แบบฝึกหัดเชิงโต้ตอบแบบลงมือทำ
ลองทำแบบฝึกหัดนี้โดยเติมโค้ดตัวอย่างนี้ให้สมบูรณ์
# 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 = ___)