## Example 1
data(chocolates)
resdecat<-decat(chocolates,formul="~Product",firstvar=5,graph=FALSE)
coltable(magicsort(resdecat$tabT),level.lower=-1.96,level.upper=1.96,main.title="Products' description")
## Example 2
data(chocolates)
resperf<-paneliperf(chocolates,formul="~Product+Panelist+Product:Panelist",formul.j="~Product",col.j=1,firstvar=5,lastvar=12,synthesis=FALSE,graph=FALSE)
res.sort=magicsort(resperf$prob.ind,method="median")
coltable(res.sort,main.title="P-values of the F-test by panelist")
Run the code above in your browser using DataLab