tests/testthat/test-random.test.data.R

In lctools: Local and Geographically Weighted Spatial Statistics Tools

test_that("random.test.data returns the expected structure", {
  set.seed(7)
  d <- random.test.data(nrows = 4, ncols = 5, vars.no = 3)
  expect_s3_class(d, "data.frame")
  expect_equal(nrow(d), 20)
  expect_equal(ncol(d), 1 + 2 + 2) # dep + (vars.no - 1) covariates + X,Y
  expect_false(anyNA(d))
})

test_that("random.test.data supports poisson and zip dependent variables", {
  set.seed(8)
  d.pois <- random.test.data(4, 4, 3, dep.var.dis = "poisson")
  expect_true(all(d.pois$dep >= 0))
  d.zip <- random.test.data(10, 10, 3, dep.var.dis = "zip")
  expect_true(any(d.zip$dep == 0))
})