Nothing
## library(coga)
context("random generation of convolution of gamma")
test_that("input check of shape", {
expect_error(rcoga(10, shape=c(-1, 3), rate=c(4, 5)))
expect_error(rcoga(10, shape=c(0, 0), rate=c(4, 5)))
})
test_that("input check of rate", {
expect_error(rcoga(10, shape=c(2, 3), rate=c(-4, 5)))
expect_error(rcoga(10, shape=c(2, 3), rate=c(0, 5)))
})
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.