# NOT RUN {
(mo.j <- Jclust(t(moldino), 3, iter=1000))
plot(mo.j)
# }
# NOT RUN {
## This is how one can bootstrap _all_ reliable cluster numbers:
for (i in 2:(nrow(t(moldino)) - 1)) print(Jclust(t(moldino), i, iter=1000, boot=TRUE))
# }
Run the code above in your browser using DataCamp Workspace