# NOT RUN {
# }
# NOT RUN {
library(ordinalClust)
data("dataqol")
set.seed(5)
# loading the ordinal data
M <- as.matrix(dataqol[,2:29])
m = 4
krow = 4
nbSEM=50
nbSEMburn=40
nbindmini=2
init = "random"
object <- bosclust(x=M,kr=krow, m=m, nbSEM=nbSEM,
nbSEMburn=nbSEMburn, nbindmini=nbindmini, init=init)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab