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

Try the logOfGamma package in your browser

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

logOfGamma documentation built on May 2, 2019, 2:32 p.m.