data(testdata)
if (FALSE) {
# dontrun because Examples with CPU time > 2.5 times elapsed time
sdc <- createSdcObj(testdata,
keyVars=c('urbrur','roof','walls','relat','sex'),
pramVars=c('water','electcon'),
numVars=c('expend','income','savings'), w='sampling_weight')
sdc <- kAnon(sdc, k=5)
plot(sdc, type="ls")
}
Run the code above in your browser using DataLab