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