R/ck_create_testdata.R

In sdcTools/cellKey: Consistent Perturbation of Statistical Frequency- And Magnitude Tables

#' ck_create_testdata
#'
#' this function generates some test-data
#'
#' @return a \code{data.frame}
#' @export
#'
#' @examples
#' dat <- ck_create_testdata(); print(str(dat))
ck_create_testdata <- function() {
  testdata <- sampling_weight <- savings <- expend <- income <- age <- sex <- NULL

  data(testdata, envir = environment())

  microdat <- as.data.table(testdata)
  microdat[, sampling_weight := sample(20:100, nrow(microdat), replace = TRUE)]
  microdat[, savings := round(savings / 10000)]
  microdat[, expend := round(expend / 10000)]
  microdat[, income := round(income / 10000)]
  microdat[, age := factor(cut(age, 6), labels = paste0("age_group", 1:6))]
  microdat[, sex := as.factor(sex)]
  levels(microdat$sex) <- c("male", "female")
  return(microdat)
}