螻 | |
譴讌 + 磯() | 4 + 3.3 = 7.33 |
讌 + 谿 + 磯() | 3 + 3.3 = 6.33 |
... | ... |
Brand | Color | Price |
A | Red | $50 |
B | Blue | $100 |
C | $150 |
install.packages("faisalconjoint") library("faisalconjoint") data(traditional_data) data(traditional_levels) faisalconjoint(traditional_data,traditional_levels)
library("sqldf") prof <- sqldf("select Brand, Color, Price from traditional_data") Conjoint(traditional_data$Ranks, prof, traditional_levels) data(herbata) x<-as.data.frame(hprof) y1<-as.data.frame(hpref[1:nrow(x),1]) model=caModel(y1, x) print(model)