library(UniversalCVI)
# Iris data
x = iris[,1:4]
# ---- FCM algorithm ----
# Compute all the indices by CCV.IDX
FCM.ALL.CCV = CCV.IDX(scale(x), cmax = 10, cmin = 2, indexlist = "all",
method = 'FCM', fzm = 2, iter = 100, nstart = 20)
print(FCM.ALL.CCV)
# Compute CCVP index
FCM.CCVP = CCV.IDX(scale(x), cmax = 10, cmin = 2, indexlist = "CCVP",
method = 'FCM', fzm = 2, iter = 100, nstart = 20)
print(FCM.CCVP)
# ---- EM algorithm ----
# Compute all the indices by CCV.IDX
EM.ALL.CCV = CCV.IDX(scale(x), cmax = 10, cmin = 2, indexlist = "all",
method = 'EM', iter = 100, nstart = 20)
print(EM.ALL.CCV)
# Compute CCVP index
EM.CCVP = CCV.IDX(scale(x), cmax = 10, cmin = 2, indexlist = "CCVP",
method = 'EM', iter = 100, nstart = 20)
print(EM.CCVP)
Run the code above in your browser using DataLab