if (FALSE) {
## pick a number for setting the seed
n.seed <- 11
## Simulate an unfolding scale
simulation <- mudfoldsim(N=6, n=100, seed=n.seed)
## get the data
dat <- simulation$dat
## true order
true_order <- simulation$true_ord
## check MUDFOLD statistics for the random simulated rank order
mud_stats1 <- as.mudfold(dat)
# get the summary
summary(mud_stats1)
## check MUDFOLD statistics for the true item rank order
mud_stats2 <- as.mudfold(dat[,true_order])
# get the summary for the true item rank order
summary(mud_stats2)
}
Run the code above in your browser using DataLab