sim.srt: function...

In franciscorichter/dmea02: Diversification and Macro-Evolution Analysis

Usage

sim.srt(tree, pars, parallel = F, n_trees, WT = FALSE, method = 1)

Arguments

tree
pars
parallel
n_trees
WT
method

Examples

##---- Should be DIRECTLY executable !! ----
##-- ==>  Define data, use random,
##--	or do  help(data=index)  for the standard data sets.

## The function is currently defined as
function (tree, pars, parallel = F, n_trees, WT = FALSE, method = 1)
{
    if (parallel) {
        no_cores <- detectCores() - 1
        cl <- makeCluster(no_cores)
        registerDoParallel(cl)
        trees <- foreach(i = 1:n_trees, combine = list) %dopar%
            dmea02::rec.tree(tree = tree, pars = pars)
        stopCluster(cl)
    }
    else {
        trees = vector("list", length = n_trees)
        for (i in 1:n_trees) {
            if (method == 1)
                rec = rec.tree(tree = tree, pars = pars)
            if (method == 2)
                rec = rec.tree2(tree = tree, pars = pars)
            if (WT) {
                trees[[i]] = rec$wt
            }
            else {
                trees[[i]] = rec
            }
        }
    }
    return(trees)
  }

franciscorichter/dmea02 documentation built on March 21, 2020, 3:46 a.m.