# NOT RUN {
#convert some variables to factors in Tham
response <- c("Liking")
fixed <- list(Product=c("Product", "Information"), Consumer="Gender")
random <- c("Consumer")
facs <- c("Consumer", "Product", "Information", "Gender")
res.ham <- conjoint(structure=3, ham, response, fixed, random, facs)
# }
Run the code above in your browser using DataLab