data(wine, package = "clusterMI")
set.seed(123456)
wine.na <- wine
wine.na$cult <- NULL
wine.na <- prodna(wine.na)
nb.clust <- 3 # number of clusters
m <- 3 # number of imputed data sets
maxit <- 50 # number of iterations for FCS imputation
# \donttest{
res.imp <- imputedata(data.na = wine.na, method = "FCS-homo",
nb.clust = nb.clust, m = m, maxit = maxit)
choosemaxit(res.imp)
# }
Run the code above in your browser using DataLab