strata <- rep(c("A", "B", "C"), times = c(50, 100, 200))
probs <- strata_rs_probabilities(strata = strata)
table(strata, probs)
probs <- strata_rs_probabilities(strata = strata, prob = 0.2)
table(strata, probs)
probs <- strata_rs_probabilities(strata = strata, strata_prob = c(0.1, 0.2, 0.3))
table(strata, probs)
probs <- strata_rs_probabilities(strata = strata, strata_n = c(10, 40, 70))
table(strata, probs)
Run the code above in your browser using DataLab