tests/testthat/test_logOfGamma.R

test_that("gammaln() matchest log(gamma())", {
  for (i in 1:100){
    expect_equal(gammaln(i), log(gamma(i)))
  }
  for (i in 1:100){
    expect_true(gammaln(i*10) > 0)
  }
})
philliplab/logOfGamma documentation built on May 6, 2019, 10:40 a.m.