Recently Published
Cluster Plot
fviz_cluster(km, data = new_Customer)
Gap Statistic
gap_stat <- clusGap(new_Customer,
FUN = kmeans,
nstart = 25,
K.max = 10,
B = 50)
fviz_gap_stat(gap_stat)
Total Within Sum of Squares
fviz_nbclust(new_Customer, kmeans, method = "wss")