Nothing
context("alpha_true")
library(breakaway)
test_that("alpha true functions work", {
expect_is(true_shannon(c(.2,.8)), "numeric")
expect_error(true_shannon(.2))
expect_error(true_hill(.2), q = 2)
expect_equal(true_hill(c(.2,.8), q = 1), exp(true_shannon(c(.2,.8))))
expect_is(true_hill(c(.2,.8), q = 2), "numeric")
expect_is(true_inverse_simpson(c(.2, .8)), "numeric")
expect_is(true_gini(c(.2,.8)), "numeric")
expect_is(true_shannon_e(c(.2,.8)), "numeric")
expect_error(true_shannon_e(c(.2)))
})
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.