data(eusilcS)
inp <- specifyInput(data=eusilcS, hhid="db030", hhsize="hsize", strata="db040", weight="db090")
inpObj <- simStructure(data=inp, method="direct", basicHHvars=c("age", "rb090"))
class(inpObj)
str(sampleObj(inpObj))
inp2 <- specifyInput(data=eusilcS, hhid="db030", hhsize="hsize", strata="pb220a", weight="db090")
sampleObj(inpObj) <- inp2
str(sampleObj(inpObj))Run the code above in your browser using DataLab