# load test problem
p <- sdc_testproblem(with_supps = FALSE)
dt <- sdcProb2df(p, dimCodes = "original")
# find the strID for a specific cell (e.g., region "A" and gender "female")
target_id <- dt[region == "A" & gender == "female", strID]
# compute contributing indices for this cell
contr_list <- contributing_indices(prob = p, ids = target_id)
# view the contributing raw data rows
rawData <- slot(get.sdcProblem(p, "dataObj"), "rawData")
rawData[contr_list[[target_id]]]
# compute indices for all cells in the table
all_indices <- contributing_indices(p)
Run the code above in your browser using DataLab