inst/tests/test_metapop.sim.R

require(testthat)
require(pez)
context("Metapopulation and phylogeny simulation")

#Tests
# - no explicit test of edge2phylo because these test it
test_that("sim.meta.comm", expect_equal(names(sim.meta.comm()), c("comm","environment")))
test_that("sim.meta.phy.comm", expect_equal(class(sim.meta.phy.comm()), c("comparative.comm", "comparative.data")))

Try the pez package in your browser

Any scripts or data that you put into this service are public.

pez documentation built on Sept. 1, 2022, 1:09 a.m.