# \donttest{
data(exampleData1)
# Reshape data for two base tasks + repeated (for IRR estimation)
dat <- reshape_projoint(
exampleData1,
.outcomes = c("choice1", "choice2", "choice1_repeated_flipped")
)
# Build a valid choice-level QoI
att <- unique(dat$labels$attribute_id)[1]
lev_ids <- dat$labels$level_id[dat$labels$attribute_id == att]
lev_names <- sub(".*:", "", lev_ids)
q <- set_qoi(
.structure = "choice_level",
.estimand = "mm",
.att_choose = att,
.lev_choose = lev_names[2],
.att_notchoose = att,
.lev_notchoose = lev_names[1]
)
# Fit model
fit <- projoint(dat, .qoi = q)
# Get the tabular summary of estimates
tab <- summary(fit)
head(tab)
# }
Run the code above in your browser using DataLab