# NOT RUN {
set.seed(100)
# Data generation
mean_list = list(
c(2, 2, 2),
c(-2, 2, 2),
c(2, -2, 2),
c(2, 2, -2)
)
data <- rGMM(n = 500, d = 3, k = 4, means = mean_list)
fit <- fit.GMM(data, k = 4)
# Clustering quality
cluster_qual <- ClustQual(fit)
# }
Run the code above in your browser using DataLab