# NOT RUN {
data(testdata2)
# }
# NOT RUN {
data_swap <- rankSwap(
obj = testdata2,
variables = c("age", "income", "expend", "savings")
)
## for objects of class sdcMicro:
data(testdata2)
sdc <- createSdcObj(
dat = testdata2,
keyVars = c("urbrur", "roof", "walls", "water", "electcon", "relat", "sex"),
numVars = c("expend", "income", "savings"),
w = "sampling_weight")
sdc <- rankSwap(sdc)
# }
Run the code above in your browser using DataLab