# Twelve clusters, of sizes 1 through 12, nested in four strata of three
clusters <- rep(letters[1:12], times = 1:12)
strata <- rep(NA, length(clusters))
strata[clusters %in% letters[1:3]] <- "stratum_1"
strata[clusters %in% letters[4:6]] <- "stratum_2"
strata[clusters %in% letters[7:9]] <- "stratum_3"
strata[clusters %in% letters[10:12]] <- "stratum_4"
table(strata, clusters)
probs <- strata_and_cluster_rs_probabilities(strata = strata,
clusters = clusters)
table(probs, strata)
table(probs, clusters)
probs <- strata_and_cluster_rs_probabilities(clusters = clusters,
strata = strata,
prob = 0.5)
table(probs, clusters)
table(probs, strata)
probs <- strata_and_cluster_rs_probabilities(clusters = clusters,
strata = strata,
strata_n = c(1, 2, 1, 2))
table(probs, clusters)
table(probs, strata)
probs <- strata_and_cluster_rs_probabilities(clusters = clusters,
strata = strata,
strata_prob = c(0.2, 0.4, 0.6, 0.8))
table(probs, clusters)
table(probs, strata)
Run the code above in your browser using DataLab