library(cbcTools)
# Create profiles with categorical variables
profiles <- cbc_profiles(
price = c(10, 20, 30),
quality = c("Low", "Medium", "High"),
brand = c("A", "B")
)
# Create design (defaults to standard coding)
design <- cbc_design(
profiles = profiles,
n_alts = 2,
n_q = 4
)
# Convert to dummy coding
design_dummy <- cbc_encode(design, coding = "dummy")
head(design_dummy)
# Convert to effects coding
design_effects <- cbc_encode(design, coding = "effects")
head(design_effects)
# Convert back to standard
design_standard <- cbc_encode(design_dummy, coding = "standard")
head(design_standard)
# Custom reference levels with dummy coding
design_dummy2 <- cbc_encode(
design,
coding = "dummy",
ref_levels = list(quality = "Medium", brand = "B")
)
head(design_dummy2)
# Update reference levels without changing encoding
design_updated <- cbc_encode(
design_dummy,
ref_levels = list(quality = "High")
)
head(design_updated)
Run the code above in your browser using DataLab