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)
}
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.