tests/testthat/test_funnel.R
In tpq/catmap: Case-Control and TDT Meta-Analysis Package
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))
})
tpq/catmap documentation built on May 31, 2019, 6:49 p.m.
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
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))
})
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
Embedding an R snippet on your website
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.