test_that("expected abundance", {
tol <- 1e-6
expect_true(all(abs(expected.abundance(2,1) - c(3/2, 1/2 ))) < tol)
expect_true(all(abs(expected.abundance(3,1) - c(13/6, 4/6, 1/6))) < tol)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.