tests/testthat/test-gumbel.R

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

Try the PAsso package in your browser

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

PAsso documentation built on June 18, 2021, 5:09 p.m.