# NOT RUN {
# }
# NOT RUN {
data(ITS)
#shortcut for example if AdaptGauss not installed
Classification = kmeans(ITS, centers = 2)$cluster
#better approach
#please download package from cran
#model=AdaptGauss::AdaptGauss(ITS)
#Classification=AdaptGauss::ClassifyByDecisionBoundaries(ITS,
#DecisionBoundaries = AdaptGauss::BayesDecisionBoundaries(model$Means,model$SDs,model$Weights))
ClassNames=c(1,2)
names(ClassNames)=c("Insert name \n of Class 1","Insert name \n of Class 2")
ClassMDplot(ITS,Classification,ClassNames = ClassNames)
# }
Run the code above in your browser using DataLab