tests/testthat/test-rkt_get_spec_init_rates.R

context("rkt_get_spec_init_rates")

test_that("use", {
  expect_true(
    all(rkt_get_spec_init_rates() > 0.0)
  )
  # Used in Etienne et al., 2014
  expect_true(0.5 %in% rkt_get_spec_init_rates())
})
richelbilderbeek/raket documentation built on Dec. 31, 2019, 7:41 p.m.