tests/testthat/test_funnel.R

test_that("catmap.funnel works", {
  expect_equal(data(catmapdata), "catmapdata")
  catmapobject <- catmap(catmapdata, 0.95, TRUE)
  expect_equal(catmap.funnel(catmapobject, TRUE)$x, catmapobject$logOR)
  expect_equal(catmap.funnel(catmapobject, TRUE)$y, sqrt(catmapobject$comvarlogOR))
})

Try the catmap package in your browser

Any scripts or data that you put into this service are public.

catmap documentation built on May 2, 2019, 10:21 a.m.