## Simulate data with nonlinear association (setting 3).
data = simulate(N = 3000, discretize = 3, setting = 3, seed = 123)
population = data$population # Population data (3000 cases)
samples = data$samples # Sample data (600 cases)
ipw = 1 / samples$true_pi # Compute inverse probability weights
## Estimate the weighted sample mean with IPW
IPW_sample_mean = uwt(svysmpl = samples, svyVar = "Y1", svypopu = population,
subset = c("Z1 == 1 & Z2 == 1"), family = gaussian(),
invlvls = c(0.95), weights = ipw)
IPW_sample_mean
## Estimate the unweighted sample mean
unweighted_sample_mean = uwt(svysmpl = samples, svyVar = "Y1", svypopu = population,
subset = NULL, family = gaussian(), invlvls = c(0.95), weights = NULL)
unweighted_sample_mean
Run the code above in your browser using DataLab