Nothing
## ----setup, include = FALSE---------------------------------------------------
knitr::opts_chunk$set(
collapse = TRUE,
comment = "#>"
)
## -----------------------------------------------------------------------------
library(DAISIE)
## -----------------------------------------------------------------------------
data(frogs_datatable, package = "DAISIE")
## ----echo=FALSE, results= 'asis'----------------------------------------------
knitr::kable(frogs_datatable,caption= 'Eleutherodactylus data table')
## -----------------------------------------------------------------------------
frogs_datalist <- DAISIE_dataprep(
datatable = frogs_datatable,
island_age = 30,
M = 300)
## ----results='hide'-----------------------------------------------------------
frogs_datalist
## ----echo=TRUE----------------------------------------------------------------
DAISIE_plot_island(frogs_datalist)
## ----echo=TRUE, fig.align='left'----------------------------------------------
# DAISIE_plot_age_diversity(frogs_datalist)
## -----------------------------------------------------------------------------
data(frogs_datalist)
## ----ML_DAISIE_M1, warning=TRUE, eval = FALSE---------------------------------
# DAISIE_ML(
# datalist = frogs_datalist,
# initparsopt = c(0.18,0.03,0.0006,2),
# idparsopt = c(1,2,4,5),
# ddmodel = 0,
# parsfix = Inf,
# idparsfix = 3
# )
## ----echo=FALSE---------------------------------------------------------------
readRDS(file = system.file("extdata", "frog_M1_ML.rds", package = "DAISIE", mustWork = TRUE))
## ----ML_DAISIE_M2, eval=FALSE-------------------------------------------------
# DAISIE_ML(
# datalist = frogs_datalist,
# initparsopt = c(0.44,0.11,36.44,0.0007,2),
# idparsopt = c(1,2,3,4,5),
# ddmodel = 11,
# parsfix = NULL,
# idparsfix = NULL
# )
## ----ML_DAISIE_M3, eval=FALSE-------------------------------------------------
# DAISIE_ML(
# datalist = frogs_datalist,
# initparsopt = c(0.44,0.11,36.44,0.0007),
# idparsopt = c(1,2,3,4),
# ddmodel = 11,
# parsfix = 0,
# idparsfix = 5
# )
## ----ML_DAISIE_M4, eval=FALSE-------------------------------------------------
# DAISIE_ML_IW(
# datalist = frogs_datalist,
# initparsopt = c(0.41, 0.17, 131.7, 0.0012, 2),
# idparsopt = c(1,2,3,4,5),
# ddmodel = 11,
# parsfix = NULL,
# idparsfix = NULL
# )
## ----ML_DAISIE_M5, eval=FALSE-------------------------------------------------
# DAISIE_ML_IW(
# datalist = frogs_datalist,
# initparsopt = c(0.40, 0.17, 131.83, 0.0012),
# idparsopt = c(1,2,3,4),
# ddmodel = 11,
# parsfix = 0,
# idparsfix = 5
# )
## ----DAISIE_sim_CS, results='hide'--------------------------------------------
set.seed(1)
frog_sims_CS <- DAISIE_sim_cr(
time=30,
M=300,
pars=c(0.44,0.11,36.44,0.0007,0),
divdepmodel = "CS",
replicates= 100,
plot_sims = FALSE)
## ----DAISIE_sim_IW, results='hide'--------------------------------------------
set.seed(1)
frog_sims_CS <- DAISIE_sim_cr(
time=30,
M=300,
pars=c(0.40,0.17,131.83,0.0012,0),
divdepmodel = "IW",
replicates= 100,
plot_sims = FALSE)
## ----echo=TRUE----------------------------------------------------------------
DAISIE_plot_sims(frog_sims_CS)
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.