library(tipsae)
# loading toy dataset
data("emilia_cs")
# perform smoothing procedure
smoo <- smoothing(emilia_cs, direct_estimates = "hcr", area_id = "id",
raw_variance = "vars", areas_sample_sizes = "n",
var_function = NULL, method = "ols")
plot(smoo)
Run the code above in your browser using DataLab