data(chocolates)
ktab.donnee <- ktab.data.frame(cbind.data.frame(chocolates[,1],
chocolates[,4], chocolates[,-(1:4)]), blocks = c(2,14),
tabnames = c("JP","Gr1"))
ktab.interesting.desc <- search.desc.ktab(ktab.donnee, level = 0.5)
axe <- construct.axes(ktab.interesting.desc, scale.unit = TRUE)
plotpanelist(axe$moyen, eig = axe$eig)
Run the code above in your browser using DataLab