Nothing
context("counting taxa")
test_that("counting taxa is working", {
expect_is(
count_taxa(object = Kenya_veg, level = "species"),
"integer"
)
expect_is(
count_taxa(
object = Kenya_veg, level = "species",
include_lower = TRUE
),
"integer"
)
expect_is(
count_taxa(object = species ~ ReleveID, data = Kenya_veg),
"vegtable"
)
expect_is(
count_taxa(
object = species ~ ReleveID, data = Kenya_veg,
in_header = FALSE
),
"data.frame"
)
expect_error(count_taxa(Kenya_veg, level = "plant"))
})
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.