# Ten clusters, of sizes 1 through 10
clusters <- rep(letters[1:10], times = 1:10)
S <- cluster_rs(clusters = clusters)
table(S, clusters)
S <- cluster_rs(clusters = clusters, n = 4)
table(S, clusters)
# Each cluster drawn independently, so the number sampled varies
S <- cluster_rs(clusters = clusters, prob = 0.4, simple = TRUE)
table(S, clusters)
Run the code above in your browser using DataLab