MAGICSORT: 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")