# \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)
# compute CV table
ebp_compute_cv(model = ebp_model, calibvar = "gender")
# }
Run the code above in your browser using DataLab