tests/testthat/test-poisson_limits.R

In FunnelPlotR: Funnel Plots for Comparing Institutional Performance

test_that("`Poisson limits are right", {
  lims <- calculate_limits(data.frame(number.seq= c(15,20,30)), target=1,
                           draw_adjusted=FALSE)
  expect_length(lims,5)
  expect_length(lims[,1],3)
  expect_equal(round(lims$ll95,7), c(0.5596924, 0.6108260, 0.6746958))
  expect_equal(round(lims$ul95,6), c(1.649348, 1.544419, 1.427562))
  expect_equal(round(lims$ll99,7), c(0.3862650, 0.4479107, 0.5289724))
  expect_equal(round(lims$ul99,6), c(2.082907, 1.902094, 1.702771))
  
  expect_s3_class(funnel_grey(), "theme")
})