tests/testthat/test-rgamma_with_mean_sd.R

test_that("rgamma_with_mean_sd cases works as expected", {
  
  n = 100
  
  base <- rgamma_with_mean_sd(n, 1, 1)
  expect_is(base, "numeric")
  expect_true(length(base) == n)
  
  
})
epiforecasts/NCoVUtils documentation built on June 26, 2020, 1:20 a.m.