tests/testthat/test-gumbel.R

context("Gumbel functions")

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)
})

Try the sure package in your browser

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

sure documentation built on May 1, 2019, 10:19 p.m.