tests/testthat/test-plotTraitGram.R

In michellelawing/ppgm: PaleoPhyloGeographic Modeling of Climate Niches and Species Distributions

test_that("plotTraitGram works", {
  skip_on_cran()
  #load test data
  load(test_path("testdata","testocc.rda"))
  load(test_path("testdata","testtree.rda"))
  load(test_path("testdata","testfos.rda"))
  load(test_path("testdata","testclim.rda"))
  #test BM
  tBM  <- ppgmConsensus(testocc, trees=testtree[[1]], fossils=testfos, model="BM", which.biovars=1, use.paleoclimate=FALSE, paleoclimateUser=testclim)
  expect_snapshot(plotTraitGram(tBM$treedata_min,tBM$treedata_max,tBM$node_est,fossils=testfos,which.biovars=1,use.paleoclimate=FALSE,paleoclimateUser = testclim))
  expect_snapshot(plotTraitGram(tBM$treedata_min,tBM$treedata_max,tBM$node_est,fossils=testfos,which.biovars=1))
})