tests/testthat/test_catmap.R

test_that("catmap works", {
  expect_equal(data(catmapdata), "catmapdata")
  catmapobject <- catmap(catmapdata, 0.95, TRUE)
  expect_equal(round(catmapobject$combinedLogOR, 6), 1.110256)
  expect_equal(round(catmapobject$chisq.dsl, 6), 4.118104)
})
tpq/catmap documentation built on May 31, 2019, 6:49 p.m.