tests/testthat/test-simulate.R

context("simulate")
library(breakaway)
data("apples")


test_that("simulation code works", {
  expect_is(rnbinomtable(C = 100, size = 20, probability = .1), "data.frame")
  expect_is(rztnbinomtable(C = 100, size = 20, probability = .1), "data.frame")
})

Try the breakaway package in your browser

Any scripts or data that you put into this service are public.

breakaway documentation built on Nov. 22, 2022, 5:08 p.m.