tests/testthat/test-gumbel.R

In RTMBdist: Distributions Compatible with Automatic Differentiation by 'RTMB'

# Tests for the Gumbel distribution

test_that("gumbel passes standard distribution checks (location=0, scale=1)", {
  check_continuous_dist(
    dfun  = dgumbel,
    pfun  = pgumbel,
    qfun  = qgumbel,
    xs    = c(-1, 0, 1, 2, 4),
    location = 0, scale = 1
  )
})

test_that("gumbel passes standard distribution checks (location=2, scale=3)", {
  check_continuous_dist(
    dfun  = dgumbel,
    pfun  = pgumbel,
    qfun  = qgumbel,
    xs    = c(-2, 0, 2, 5, 8),
    location = 2, scale = 3
  )
})

test_that("gumbel AD gradient has no NaN", {
  check_ad_gradient(dgumbel, rgumbel, location = 5, scale = 2)
})