tests/testthat/test_distributions.R

In mrparker909/optimizeAPA: An R Package for Arbitrary Precision Optimization of Multi-parameter Functions

context("Testing Distribution Functions")

test_that("dpois_APA", {
  expect_equal(as.numeric(dpois_APA(x = 0:10, lambda = 5)),dpois(0:10, 5))
  expect_equal(as.numeric(dpois_APA(x = -1, lambda = 5)), 0)
  expect_equal(as.numeric(dpois_APA(x = -10:10, lambda = 5)),dpois(-10:10, 5))
  
  val1 <- as.numeric(dpois_APA(x = seq(-1,1,0.5), lambda = 5))
  expect_warning(val2 <- dpois(seq(-1,1,0.5), 5))
  expect_equal(val1,val2)
})

test_that("plogis_APA", {
  expect_equal(as.numeric(plogis_APA(x = seq(-10,10,0.01))),plogis(q = seq(-10,10,0.01)))
  expect_equal(as.numeric(plogis_APA(x = seq(-10,10,0.01), location = 5)),plogis(q = seq(-10,10,0.01), location = 5))
  expect_equal(as.numeric(plogis_APA(x = seq(-10,10,0.01), location = 5, scale = 0.5)),plogis(q = seq(-10,10,0.01), location = 5, scale = 0.5))
})