R 的行銷選擇模型
Elea McDonnell Feit
Assistant Professor of Marketing, Drexel University
Typemilk, dark, milk with nuts, dark with nuts, white
BrandDove, Ghirardelli, Godiva, Hershey's, Lindt
Price0.5, 0.6, ... 每 0.1 遞增 ..., 3.9, 4.0
choc_survey[choc_survey$Subject == 1 & choc_survey$Trial == 1, ]
Subject Trial Alt Type Brand Price 1 1 1 1 NA NA NA 2 1 1 2 NA NA NA 3 1 1 3 NA NA NA
# 設定屬性與水準清單 attribs <- list(Type = c("Milk", "Dark", "White"), Brand = c("Cadbury", "Toblerone", "Kinder"), Price = 5:30 / 10) # 產生所有可能的屬性組合 all_comb <- expand.grid(attribs) nrow(all_comb) head(all_comb)
# 設定屬性與水準清單 attribs <- list(Type = c("Milk", "Dark", "White"), Brand = c("Cadbury", "Toblerone", "Kinder"), Price = 5:30 / 10)
# 產生所有可能的屬性組合 all_comb <- expand.grid(attribs) nrow(all_comb) head(all_comb)
144 Type Brand Price 1 Milk Cadbury 0.5 2 Dark Cadbury 0.5 3 White Cadbury 0.5 4 Milk Toblerone 0.5 5 Dark Toblerone 0.5 6 White Toblerone 0.5
144
Type Brand Price 1 Milk Cadbury 0.5 2 Dark Cadbury 0.5 3 White Cadbury 0.5 4 Milk Toblerone 0.5 5 Dark Toblerone 0.5 6 White Toblerone 0.5
for (i in 1:100) { rand_rows <- sample(1:nrow(all_comb), size = 12 * 3) rand_alts <- all_comb[rand_rows, ] choc_survey[choc_survey$Subject == i, 4:6] <- rand_alts }
Preparing Video For Download...
