strata <- rep(c("A", "B", "C"), times = c(50, 100, 200))
S <- strata_rs(strata = strata)
table(strata, S)
# The same probability in every stratum
S <- strata_rs(strata = strata, prob = 0.3)
table(strata, S)
# The same count in every stratum
S <- strata_rs(strata = strata, n = 20)
table(strata, S)
# A different probability in each stratum, in the order of sort(unique(strata))
S <- strata_rs(strata = strata, strata_prob = c(0.1, 0.2, 0.3))
table(strata, S)
# The same, specified unit by unit
S <- strata_rs(strata = strata,
prob_unit = rep(c(0.1, 0.2, 0.3), times = c(50, 100, 200)))
table(strata, S)
# A different count in each stratum
S <- strata_rs(strata = strata, strata_n = c(20, 30, 40))
table(strata, S)
S <- strata_rs(strata = strata,
n_unit = rep(c(20, 30, 40), times = c(50, 100, 200)))
table(strata, S)
Run the code above in your browser using DataLab