# NOT RUN {
if (require("sjstats")) {
data(nhanes_sample, package = "sjstats")
head(rescale_weights(nhanes_sample, "SDMVSTRA", "WTINT2YR"))
# also works with multiple group-variables...
head(rescale_weights(nhanes_sample, c("SDMVSTRA", "SDMVPSU"), "WTINT2YR"))
# or nested structures.
x <- rescale_weights(
data = nhanes_sample,
group = c("SDMVSTRA", "SDMVPSU"),
probability_weights = "WTINT2YR",
nest = TRUE
)
head(x)
}
if (require("lme4") && require("sjstats")) {
data(nhanes_sample, package = "sjstats")
nhanes_sample <- rescale_weights(nhanes_sample, "SDMVSTRA", "WTINT2YR")
glmer(
total ~ factor(RIAGENDR) * (log(age) + factor(RIDRETH1)) + (1 | SDMVPSU),
family = poisson(),
data = nhanes_sample,
weights = pweights_a
)
}
# }
Run the code above in your browser using DataLab