library(cbcTools)
# Create profiles and design
profiles <- cbc_profiles(
price = c(1, 2, 3),
type = c("A", "B", "C"),
quality = c("Low", "High")
)
design <- cbc_design(
profiles = profiles,
n_alts = 2,
n_q = 4
)
# Simulate random choices (default)
choices_random <- cbc_choices(design)
# Create priors and simulate utility-based choices
priors <- cbc_priors(
profiles = profiles,
price = -0.1,
type = c(0.5, 0.2), # vs reference level
quality = 0.3
)
choices_utility <- cbc_choices(design, priors = priors)
Run the code above in your browser using DataLab