datObj <- get(load(paste(searchpaths()[grep("sdcTable", searchpaths())], "/data/testObj.RData", sep="")))
# attacker knows that cells are non-negative
datObj <- setBounds(datObj, type="lb", rep(0, length(datObj$fullTabObj$strID)))
Run the code above in your browser using DataLab