library(UniversalCVI)
# The data is from Wiroonsri (2024).
x = R1_data
# Check accuracy of clustering results obtained by kmeans, FCM, and EM clustering
AccClust(x, label.names = "label",algorithm = c("Kmeans","FCM","EM"), fzm = 2,
scale = TRUE, nstart = 20,iter = 100)
# Check accuracy of a clustering result obtained by the FCM algoritm
AccClust(x, label.names = "label",algorithm = "FCM", fzm = 2,
scale = TRUE, nstart = 20,iter = 100)
Run the code above in your browser using DataLab