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