tests/testthat/test-Pext.R

In vortexR: Post Vortex Simulation Analysis

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))
})