#Example 1
library(conjoint)
data(herbata)
x<-as.data.frame(hprof)
y1<-as.data.frame(hpref[1:nrow(x),1])
model=caModel(y1, x)
print(model)
#Example 2
library(conjoint)
data(herbata)
x<-as.data.frame(hprof)
y1<-as.data.frame(hpref[1:nrow(x),1])
model=caModel(y1, x)
print(model)
Run the code above in your browser using DataLab