tests/testthat/test_valTable.R

In sdcMicro: Statistical Disclosure Control Methods for Anonymization of Data and Risk Estimation

context("valTable")
test_that("valTable data.frame",{
  data("Tarragona")
  vT <- valTable(Tarragona[100:200,],
    method=c("simple","onedims","pca","addNoise:additive",
             "addNoise:correlated","addNoise:correlated2","addNoise:restr",
             "addNoise:outdect","addNoise:ROMM"))
  expect_true(is.data.frame(vT))
})

test_that("valtable more methods",{
  data("Tarragona")
  expect_warning(vT <- valTable(Tarragona[100:200,],
    method=c("simple","onedims","pca","clustpppca","mdav","swappNum")))
  expect_true(is.data.frame(vT))
})