# \donttest{
data("eusilcA_pop")
data("eusilcA_smp")
# estimate a unit model
ebp_model <- ebp(fixed = eqIncome ~ gender + eqsize + cash +
self_empl + unempl_ben + age_ben + surv_ben + sick_ben +
dis_ben + rent + fam_allow + house_allow + cap_inv +
tax_adj,
pop_data = eusilcA_pop, pop_domains = "district",
smp_data = eusilcA_smp, smp_domains = "district",
na.rm = TRUE, weights = "weight",
pop_weights = "hhsize", MSE = TRUE, weights_type = "nlme",
B = 2, L = 2)
# estimate direct
direct_est <- direct(y = "eqIncome", smp_data = eusilcA_smp,
smp_domains = "district", weights = "weight",
var = TRUE, B = 2)
# descritives
ebp_reportdescriptives(model = ebp_model, direct = direct_est,
smp_data = eusilcA_smp, weights = "weight",
pop_weights = "hhsize", CV_level = "state",
pop_data = eusilcA_pop, pop_domains = "district")
# }
Run the code above in your browser using DataLab