# NOT RUN {
data(wine)
n <- nrow(wine)
sub <- sample(1:n,10)
X.quanti <- wine[sub,c(3:29)] #learning sample
part <-kmeansvar(X.quanti,init=5)
X.quanti.t <- wine[-sub,c(3:29)]
new <- predict(part,X.quanti.t)
# }
Run the code above in your browser using DataLab