data(wine, package = "gclus")
X <- as.matrix(wine[, -1])
cl <- unclass(wine[, 1])
indtrain <- sort(sample(1:178, 120))
indtest <- setdiff(1:178, indtrain)
fitup <- upclassify(X[indtrain,], cl[indtrain], X[indtest,], cl[indtest])
plot(fitup)
Run the code above in your browser using DataLab