Defines functions make.cache.musse.t make.musse.t

Documented in make.musse.t

make.musse.t <- function(tree, states, k, functions, sampling.f=NULL,
                         strict=TRUE, control=list(),
                         truncate=FALSE, spline.data=NULL) {
  cache <- make.cache.musse.t(tree, states, k, functions, sampling.f,
                              strict, truncate, spline.data)
  all_branches <- make.all_branches.t.dtlik(cache, control,
  rootfunc <- make.rootfunc.t(cache, rootfunc.musse)

  ll <- function(pars, condition.surv=TRUE, root=ROOT.OBS,
                 root.p=NULL, intermediates=FALSE) {
    ans <- all_branches(pars, intermediates)
    rootfunc(ans, pars, condition.surv, root, root.p, intermediates)
  class(ll) <- c("musse.t", "musse", "dtlik.t", "dtlik", "function")

make.cache.musse.t <- function(tree, states, k, functions,
                               sampling.f, strict,
                               truncate, spline.data) {
  cache <- make.cache.musse(tree, states, k, sampling.f, strict)
  update.cache.t(cache, functions,
                 nonnegative=TRUE, truncate=truncate, with.q=TRUE,

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.