R/asr-geosse.R

Defines functions make.asr.marginal.geosse

make.asr.marginal.geosse <- function(lik, ...) {
  e <- environment(lik)
  do.asr <- make.do.asr.marginal(e$all_branches, e$rootfunc)
  asr <- function(pars, nodes=NULL, condition.surv=TRUE,
                  root=ROOT.FLAT, root.p=NULL, ...) {
    check.pars.nonnegative(pars, 7)    
    do.asr(pars, nodes, NULL, # below here extra args to rootfunc:
           condition.surv, root, root.p, intermediates=FALSE)
  }
  asr
}

Try the diversitree package in your browser

Any scripts or data that you put into this service are public.

diversitree documentation built on May 29, 2024, 4:38 a.m.