Nothing
context("Poisson CIs")
test_that("Poisson CIs x=1,conf.level<0.5",{
# minlike
expect_equal(
as.vector(round(
exactpoissonCI(x=1, tsmethod = "minlike", conf.level=0.366),4)),
c(1.0051,2.4495)
)
# blaker
expect_equal(
as.vector(round(
exactpoissonCI(x=1, tsmethod="blaker", conf.level=0.366),4)),
c(0.6931,2.1559)
)
})
test_that("Poisson x=100 conf.level=0.95",{
# minlike
expect_equal(
as.vector(round(
exactpoissonCI(x=100, tsmethod = "minlike"),4)),
c(81.8391, 121.8372)
)
# blaker
expect_equal(
as.vector(round(
exactpoissonCI(x=100, tsmethod="blaker"),4)),
c(81.5387, 121.5313)
)
})
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.