Nothing
context("Test for general methods")
# Path
data(PAM)
test_that("Summary and print PresenceAbsence object", {
print(PAM)
summarPAM <- summary(PAM)
print.summary.PresenceAbsence(summarPAM)
})
test_that("plot object", {
plot(PAM)
plot(PAM, name = "Phyllomedusa atelopoides")
plot(PAM, world = FALSE)
plot(PAM, col_rich = rainbow)
})
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.