# \donttest{
# Data simulation
set.seed(1)
simul <- SimulateClustering(
n = c(30, 30, 30), nu_xc = 1
)
plot(simul)
# Consensus clustering
stab <- Clustering(
xdata = simul$data, nc = seq_len(5)
)
# Clustering performance
ClusteringPerformance(stab, simul)
# Alternative formulation
ClusteringPerformance(
theta = CoMembership(Clusters(stab)),
theta_star = simul$theta
)
# }
Run the code above in your browser using DataLab