# Load data
data(ramdata)
# Set seed, to replicate simulated critical values
set.seed(42)
# preference
pref <- matrix(c(1, 2, 3, 4, 5), ncol=5, byrow=TRUE)
# list of choice problems
S <- matrix(c(1, 1, 0, 0, 0,
1, 1, 1, 0, 0,
1, 1, 1, 0, 1,
1, 1, 1, 1, 1), ncol=5, byrow=TRUE)
result <- revealAtte(menu = ramdata$menu, choice = ramdata$choice,
alternative = c(1,2), S = S,
lower = TRUE, upper = TRUE,
pref = pref)
summary(result)
Run the code above in your browser using DataLab