ความแตกต่างในความชอบสำหรับคุณลักษณะอื่น ๆ

Choice Modeling สำหรับการตลาดใน R

Elea McDonnell Feit

Assistant Professor of Marketing, Drexel University

อีกวิธีหนึ่งในการเข้ารหัส factor

การเข้ารหัสแบบ Dummy (สิ่งที่เราทำมาตลอด)

  seat4 seat5
2     0     0
4     1     0
5     0     1

การเข้ารหัสแบบ Effects (เหมาะกับโมเดลเชิงลำดับชั้นมากกว่า)

   seat2  seat4
2      1      0
4      0      1
5     -1     -1

การเปลี่ยนวิธีเข้ารหัสสำหรับ factor

contrasts(sportscar$seat) <- contr.sum(levels(sportscar$seat))

dimnames(contrasts(sportscar$seat))[[2]] <- levels(sportscar$seat)[1:2]

contrasts(sportscar$seat)

ทำให้สัมประสิทธิ์ทั้งหมดมีค่าแตกต่างกัน

my_rpar <- c("n", "n", "n", "n", "n")

m3 <- mlogit(choice ~ 0 + seat + trans + convert + price,
             data = sportscar)
names(my_rpar) <- names(m3$coefficients)

my_rpar

      seat2       seat4 transmanual  convertyes       price 
        "n"         "n"         "n"         "n"         "n"

m8 <- mlogit(choice ~ 0 + seat + trans + convert + price, 
             data = sportscar, 
             panel = TRUE, rpar = my_rpar)

พารามิเตอร์ของโมเดลเชิงลำดับชั้น

m8 <- mlogit(choice ~ 0 + seat + trans + convert + price, 
              data = sportscar, 
             panel = TRUE, rpar = my_rpar)
plot(m8, par = c("seat2", "seat4"))

การกระจายของพารามิเตอร์ที่เข้ารหัสแบบ effect

สัมประสิทธิ์สำหรับระดับฐาน (base level)

m8$coef[1:2]

     seat2      seat4 
-0.1686077 -0.1912170

-sum(m8$coef[1:2])

[1] 0.3598248

ลองใช้กับชุดข้อมูล `chocolate`!

Choice Modeling สำหรับการตลาดใน R