data-raw/generate_continental_cs_param_space.R

In Neves-P/DAISIErobustness: Test the Robustness of DAISIE to Geodynamics and Traits

# Continental clade-specific diversity-dependent
## Young

continental_young <- expand.grid(
  time = 2.55,
  M = 1000,
  lac = c(0.25, 0.5),
  mu = c(0.25, 0.5),
  K = c(5, 10),
  gam = c(0.01, 0.02),
  laa = c(0.25, 0.5),
  x_s = c(0.01, 0.05),
  x_nonend = c(0.1, 0.9),
  divdepmodel = "CS",
  stringsAsFactors = FALSE
)

## Old

continental_old <- expand.grid(
  time = 6.15,
  M = 1000,
  lac = c(0.25, 0.5),
  mu = c(0.25, 0.5),
  K = c(5, 10),
  gam = c(0.01, 0.02),
  laa = c(0.25, 0.5),
  x_s = c(0.01, 0.05),
  x_nonend = c(0.1, 0.9),
  divdepmodel = "CS",
  stringsAsFactors = FALSE
)

## Ancient

continental_ancient <- expand.grid(
  time = 50,
  M = 1000,
  lac = c(0.25, 0.5),
  mu = c(0.25, 0.5),
  K = c(5, 10),
  gam = c(0.01, 0.02),
  laa = c(0.25, 0.5),
  x_s = c(0.01, 0.05),
  x_nonend = c(0.1, 0.9),
  divdepmodel = "CS",
  stringsAsFactors = FALSE
)

# Complete continental clade-specific diversity-dependent parameter set

continental_cs <- rbind(
  continental_young,
  continental_old,
  continental_ancient
)

save(continental_cs, file = "inst/extdata/continental_cs.rda")