Nothing
context("utils: test Gumbel functions")
# source("R/utils.R")
test_that("qgumbel is the inverse of pgumbel", {
expect_equal(qgumbel(pgumbel(3)), 3)
expect_equal(qGumbel(pGumbel(3)), 3)
expect_equal(length(rgumbel(10)), 10)
expect_equal(length(rGumbel(10)), 10)
})
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.