tests/testthat/test-DAISIE_plot_sims.R

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

context("DAISIE_plot_sims")

test_that("Example 1", {
  data(islands_1type_1000reps)
  DAISIE_plot_sims(
    island_replicates = islands_1type_1000reps,
    use_dev_new = FALSE
  )
})

test_that("Example 2", {
  data(islands_2types_1000reps)
  DAISIE_plot_sims(
    island_replicates = islands_2types_1000reps,
    use_dev_new = FALSE
  )
})

test_that("use", {

  set.seed(42)
  n_mainland_species <- 1
  sim_time <- 10
  result <- DAISIE:::DAISIE_sim_core_checked(
    sim_time = sim_time,
    n_mainland_species = n_mainland_species,
    clado_rate = 1.0,
    ext_rate = 0.1,
    carr_cap = 4,
    imm_rate = 1.0,
    ana_rate = 1.0
  )

  island_replicates <- list()
  island_replicates[[1]] <- list()
  island_replicates[[1]][[1]] <- result
  # May also return 'other_clades_same_ancestor'

  island_replicates <- DAISIE:::DAISIE_format_CS(
    island_replicates = island_replicates,
    time = sim_time,
    M = n_mainland_species,
    Tpars = NULL,
    sample_freq = 25,
    start_midway = FALSE,
    verbose = FALSE
  )
  DAISIE:::DAISIE_plot_sims(
    island_replicates = island_replicates,
    Tpars = NULL,
    use_dev_new = FALSE,
    plot_plus_one = FALSE,
    type = "all_species"
  )
})

test_that("Plot plus one", {

  data(islands_1type_1000reps)
  DAISIE_plot_sims(
    island_replicates = islands_1type_1000reps,
    use_dev_new = FALSE,
    plot_plus_one = TRUE
  )
  DAISIE_plot_sims(
    island_replicates = islands_1type_1000reps,
    use_dev_new = FALSE,
    plot_plus_one = FALSE
  )
})