library(UniversalCVI)
# The data is from Wiroonsri (2024).
x = R1_data[,1:2]
# ---- Kmeans ----
# Compute all the indices by DB.IDX
K.ALL = DB.IDX(scale(x), kmax = 15, kmin = 2, method = "kmeans",
indexlist = "all", p = 2, q = 2, nstart = 100)
print(K.ALL)
# Compute DB index
K.DB = DB.IDX(scale(x), kmax = 15, kmin = 2, method = "kmeans",
indexlist = "DB", p = 2, q = 2, nstart = 100)
print(K.DB)
# ---- Hierarchical ----
# Average linkage
# Compute all the indices by DB.IDX
H.ALL = DB.IDX(scale(x), kmax = 15, kmin = 2, method = "hclust_average",
indexlist = "all", p = 2, q = 2)
print(H.ALL)
# Compute DB index
H.DB = DB.IDX(scale(x), kmax = 15, kmin = 2, method = "hclust_average",
indexlist = "DB", p = 2, q = 2)
print(H.DB)
Run the code above in your browser using DataLab