tests/testthat/test-DAISIE_plot_stt.R

In xieshu95/Test-Trasie: Dynamical Assembly of Islands by Speciation, Immigration and Extinction

context("DAISIE_plot_stt")

test_that("use", {
  
  utils::data(islands_1type_1000reps, package = "DAISIE")
  plot_lists <- DAISIE:::DAISIE_convert_to_classic_plot(
    simulation_outputs = islands_1type_1000reps
  )
  type <- names(plot_lists)[1]
  expect_silent(
    DAISIE:::DAISIE_plot_stt(
      plot_plus_one = FALSE,
      time = 4,
      plot_lists = plot_lists,
      type = type
    )
  )
})