R/model.frame.mvmeta.R

In mvmeta: Multivariate and Univariate Meta-Analysis and Meta-Regression

###
### R routines for the R package mvmeta (c)
#
model.frame.mvmeta <- 
function(formula, ...) {
#
################################################################################
#
  dots <- list(...)
  nargs <- dots[match(c("data","na.action","subset"),names(dots),0L)]
  if (length(nargs) || is.null(formula$model)) {
    fcall <- formula$call
    fcall$method <- "model.frame"
    fcall[[1L]] <- as.name("mvmeta")
    fcall[names(nargs)] <- nargs
    env <- environment(formula$terms)
    if (is.null(env)) env <- parent.frame()
    eval(fcall, env)
  }
  else formula$model
}