library(cbcTools)
# Create profiles
profiles <- cbc_profiles(
price = c(1, 2, 3),
type = c("A", "B", "C"),
quality = c("Low", "High")
)
# Create different designs
design_random <- cbc_design(
profiles = profiles,
method = "random",
n_alts = 2, n_q = 4
)
design_stochastic <- cbc_design(
profiles = profiles,
method = "stochastic",
n_alts = 2, n_q = 4
)
# Compare designs
cbc_compare(design_random, design_stochastic)
# Named comparison with specific metrics
cbc_compare(
Random = design_random,
Stochastic = design_stochastic,
metrics = c("efficiency", "balance"),
sort_by = "d_error"
)
Run the code above in your browser using DataLab