Nothing
library(vortexR)
library(vortexRdata)
context("test Pextinct")
test_that("Pextinct", {
# Using Pacioni et al. example data. See ?pac.run.lhs for more details.
data(pac.run.lhs)
Pext <- Pextinct(pac.run.lhs[[2]],
project="Pacioni_et_al",
scenario="ST_Classic",
ST=TRUE,
save2disk=FALSE,
dir_out="DataAnalysis/Pextinct")
expect_is(Pext, "list")
expect_equal(dim(Pext[[1]]), c(51, 8))
})
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.