R/ll.call.R

In gemtc: Network Meta-Analysis Using Bayesian Methods

ll.call <- function(fnName, model, ...) {
  fn <- paste(fnName, model[['likelihood']], model[['link']], sep=".")
  do.call(fn, list(...))
}

ll.defined <- function(model) {
  fns <- c('mtc.arm.mle', 'mtc.rel.mle', 'mtc.code.likelihood',
    'fitted.values.parameter', 'deviance_fn',
    'scale.log', 'scale.name', 'inits.info',
    'required.columns.ab', 'validate.data',
    'study.baseline.priors')
  fns <- paste(fns, model[['likelihood']], model[['link']], sep=".")
  all(sapply(fns, function(fn) { exists(fn, mode='function') }))
}