# NOT RUN {
# Data loading
data("heart")
# Clustering en 2 classes
results <- VarSelCluster(heart[,-13], 2)
# Data where missing values will be imputed
newdata <- heart[1:2,-13]
newdata[1,1] <- NA
newdata[2,2] <- NA
# Imputation
VarSelImputation(results, newdata)
# }
Run the code above in your browser using DataLab