data(chocolates)
resdecat<-decat(chocolates, formul = "~Product+Panelist", firstvar = 5,  graph = FALSE)
barrow(resdecat$coeff, color = "orange")