# setup example problem
# microdata
utils::data("microdata1", package = "sdcTable")
# create hierarchies
dims <- list(
region = sdcHierarchies::hier_create(root = "Total", nodes = LETTERS[1:4]),
gender = sdcHierarchies::hier_create(root = "Total", nodes = c("male", "female")))
# create a problem instance
p <- makeProblem(
data = microdata1,
dimList = dims,
numVarInd = "val")
# create suitable input for `writeJJFormat`
inp <- createJJFormat(p); inp
# write files to disk
# frequency table by default
writeJJFormat(
x = inp,
path = file.path(tempdir(), "prob_freqs.jj"),
overwrite = TRUE
)
# or using the numeric variable `val` previously specified
writeJJFormat(
x = inp,
tabvar = "val",
path = file.path(tempdir(), "prob_val.jj"),
overwrite = TRUE
)
Run the code above in your browser using DataLab