data(wine, package = "clusterMI")
require(parallel)
ref <- wine$cult
nb.clust <- 3
wine.na<-wine
wine.na$cult <- NULL
wine.na <- prodna(wine.na)
nnodes <- 2 # Number of CPU cores for parallel computing
B <- 80 # Number of iterations for variable selection
# variable selection
# \donttest{
res.varsel <- varselbest(data.na = wine.na,
listvar = "alco",
B = B,
nnodes = nnodes,
nb.clust = nb.clust,
graph = FALSE)
# convergence
res.chooseB <- chooseB(res.varsel)
# }
Run the code above in your browser using DataLab