tests/testthat/test_basic.R

context('basic use')

test_that('basic use', {
  threshold<-5e3
  yobs=rep(5,1)#c(10,10)
  pi<-0.5
  res<-R0(yobs,threshold,pi)
  expect_equal(length(res),3)
})
OutbreakResources/R0 documentation built on May 7, 2019, 9:42 p.m.