data(chocolates)
## model (AOV): " descriptor = product + panelist "
resdecat<-decat(chocolates, formul="~Product+Panelist", firstvar = 5)
coltable(magicsort(resdecat$tabT), level.lower = -1.96,
level.upper = 1.96, main.title="Products' description")
barrow(resdecat$tabT)
barrow(t(resdecat$tabT), numr = 3, numc = 3)
barrow(resdecat$coeff, color = "orange")
Run the code above in your browser using DataLab