context("mlnbinom")
## Error when data is Poisson.
expect_error(mlnbinom(c(1, 1, 1, 1)))
## Non-unique maximum likelihood.
expect_warning(mlnbinom(c(0, 0, 0)))
## Size argument works
expect_equal(unname(mlnbinom(seq(20), size = 20))[1], 20)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.