# NOT RUN {
# Too time consuming for testing
data(candies)
candyList <- lapply(1:nlevels(candies$candy),function(x)candies$assessment[candies$candy==x,])
can.jive <- jive(candyList)
summary(can.jive)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab