sdcTable (version 0.20.5)

setInfo: set information of sdcProblem-class- or problemInstance-class objects

Description

Function getInfo is used to query information from sdcProblem-class- or problemInstance-class objects

Usage

setInfo(object, type, index, input)

Arguments

object

an object of class sdcProblem-class or problemInstance-class

type

a character vector of length 1 specifying the the information that should be changed or modified, valid choices are:

• lb: slot 'lb' of inputobjectif it is of classproblem

index

numeric vector defining cell-indices for which which values in a specified slot should be changed|modified

input

numeric or character vector depending on argument type with its length matching the length of argument index

• character vector if type matches 'sdcStatus'
• a numeric vector if type matches 'lb', 'ub', 'LPL', 'SPL' o

Value

• a sdcProblem-class- or problemInstance-class object

Examples

# load primary suppressed data (created in the example of \\code{\\link{primarySuppression}})
sp <- searchpaths()
fn <- paste(sp[grep("sdcTable", sp)], "/data/problemWithSupps.RData", sep="")
problem <- get(load(fn))

# which is the overall total?
index.tot <- which.max(getInfo(problem, 'freq'))
index.tot

# we see that the cell with index.tot==1 is the overall total and its
# anonymization state of the total can be extracted as follows:
print(getInfo(problem, type='sdcStatus')[index.tot])

# we want this cell to never be suppressed
problem <- setInfo(problem, type='sdcStatus', index=index.tot, input='z')

# we can verify this:
print(getInfo(problem, type='sdcStatus')[index.tot])

# changing slot 'UPL' for all cells
inp <- data.frame(strID=getInfo(problem,'strID'), UPL_old=getInfo(problem,'UPL'))
inp$UPL_new <- inp$UPL_old+1
problem <- setInfo(problem, type='UPL', index=1:nrow(inp), input=inp$UPL_new)