# NOT RUN {
data(eusilcS)
data(totalsRG)
inp <- specifyInput(data=eusilcS, hhid="db030", hhsize="hsize", strata="db040", weight="db090")
# }
# NOT RUN {
## approx. 20 seconds ...
addWeights(inp) <- calibSample(inp, totalsRG)
# }
Run the code above in your browser using DataLab