# NOT RUN {
set.seed(20000)
options(digits=3)
face <- rFace(10,dMoNo=2,dNoEy=0,p=2)
clustermethod=c("kmeansCBI","hclustCBI","hclustCBI")
# A clustering method can be used more than once, with different
# parameters
clustermethodpars <- list()
clustermethodpars[[2]] <- clustermethodpars[[3]] <- list()
clustermethodpars[[2]]$method <- "complete"
clustermethodpars[[3]]$method <- "average"
cmf <- cluster.magazine(face,G=2:3,clustermethod=clustermethod,
distmethod=rep(FALSE,3),clustermethodpars=clustermethodpars)
print(str(cmf))
# }
Run the code above in your browser using DataLab