# NOT RUN {
# Observed Responses
resp <- c("alt1", "alt3", "alt2", "no.choice", "alt1")
# All possible alternatives
alts <- c("no.choice", "alt1", "alt2", "alt3")
# 3 alternatives + no.choice
Charbin(resp = resp, alts = alts, n.alts = 3, no.choice = TRUE)
# }
Run the code above in your browser using DataLab