tests/testthat/test-PLdist.R

test_that("GJS dist with mu equal 0.5 is symetric", {
  expect_equal(pPL(0.5, mu = 0.5, sigma = 2, lambda = 1, family = "NO"), 0.5)
  expect_equal(pPL(0.5, mu = 0.5, sigma = 2, lambda = 1, family = "SLASH"), 0.5)
  expect_equal(pPL(0.5, mu = 0.5, sigma = 2, lambda = 1, family = "LO"), 0.5)
})
ffqueiroz/PLreg documentation built on March 1, 2023, 2:27 a.m.