data(chocolates)
#Construction of the ktab (J stands for Panelist and P stands for Product)
ktab.donnee <- ktab.data.frame(cbind.data.frame(chocolates[,1],
chocolates[,4], chocolates[,5:ncol(chocolates)]), blocks = c(2,14),
tabnames = c("JP","Gr1"))
ktab.interesting.desc <- search.desc.ktab(ktab.donnee, level = 0.5)
Run the code above in your browser using DataLab