if (FALSE) { # .Platform$OS.type == "windows"
data(wine, package = "clusterMI")
require(parallel)
set.seed(123456)
ref <- wine$cult
nb.clust <- 3
wine.na <- wine
wine.na$cult <- NULL
wine.na <- prodna(wine.na)
# imputation
res.imp <- imputedata(data.na=wine.na, nb.clust = nb.clust, m = 5)
# pooling
nnodes <- 2 # number of CPU cores for parallel computing
res.pool <- clusterMI(res.imp, nnodes = nnodes, instability = FALSE)
# choice of nb.clust
# \donttest{
choosenbclust(res.pool)
# }
}
Run the code above in your browser using DataLab