qmres=c(0.344429, 0.300542, 0.124833, 0.04531, 0.039571, 0.011812, 0.00519)
jointcluster(qmres,information = "cluster")
jointcluster(qmres,information = "matrix")
jointcluster(qmres,information = "bar")
data(mirtilo)
m=lapply(unique(mirtilo$exp),function(x){
m=with(mirtilo[mirtilo$exp==x,],DBC(trat,bloco,resp))})
jointcluster(m)
Run the code above in your browser using DataLab