if (FALSE) {
######## Napping example
data(napping)
res <- boot(napping.don,method="napping")
######## Sorting task example
data(perfume)
res <- boot(perfume,method="sorting")
######## Sorted task napping example
data(smoothies)
res <- boot(smoothies,method="sortnapping")
######## Hierarchical sorting task example
data(cards)
group.cards<-c(2,3,3,2,2,4,2,3,2,1,3,2,3,3,3,2,3,3,2,3,3,3,3,3,3,3,3,3,3,3)
res <- boot(cards,method="hsort", group=group.cards)
######## Free choice profiling example
data(perfume_fcp)
res <- boot(perfume_fcp, method="freechoice", group = c(12,7,7,7,6,8))
}
Run the code above in your browser using DataLab