clusters <- rep(letters[1:10], times = 1:10)
probs <- cluster_rs_probabilities(clusters = clusters)
table(probs, clusters)
probs <- cluster_rs_probabilities(clusters = clusters, n = 4)
table(probs, clusters)
probs <- cluster_rs_probabilities(clusters = clusters, prob = 0.3)
table(probs, clusters)
Run the code above in your browser using DataLab