head(MU284pps)
library(survey)
# Survey design with inclusion probabilities proportional to size
dn <- if (packageVersion("survey") >= "4.2") {
# survey design with pre-calibrated weights
svydesign(ids = ~LABEL, fpc = ~pi, data = MU284pps, pps = "brewer",
calibrate.formula = ~1)
} else {
# legacy mode
svydesign(ids = ~LABEL, fpc = ~pi, data = MU284pps, pps = "brewer")
}
Run the code above in your browser using DataLab