I don't know why command 'dunn' has error like
Error in Summary.factor(c(2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, : 'max' not meaningful factors In addition: Warning message: In dist(Data, method = method) : NAs introduced by coercion"
library(caret)
set.seed(102)
index4training <- createDataPartition(y=iris$Species, p=0.7, list=FALSE)
training_data <- iris[index4training,]
testing_data <- iris[-index4training,]
training.data <- scale(training_data[-5])
kmeans_iris <- kmeans(training.data[,-5], centers=3, iter.max=10000)
training_data$cluster <- as.factor(kmeans_iris$cluster)
qplot(Petal.Width, Petal.Length, colour = cluster, data = training_data)
library("rpart")
fitted <- train(x=training.data[,-5], y=training_data$cluster, method="rpart")
testing.data <- as.data.frame(scale(testing_data[-5]))
testClusters <- predict(fitted, testing.data)
install.packages("clValid")
library("clValid")
dunn(NULL, testClusters, testing_data)