R/nobs.rma.r

In wviechtb/metafor: Meta-Analysis Package for R

Defines functions nobs.rma

Documented in nobs.rma

nobs.rma <- function(object, ...) {

   mstyle <- .get.mstyle()

   .chkclass(class(object), must="rma")

   n.obs <- object$k.eff - ifelse(object$method == "REML", 1, 0) * object$p.eff

   return(n.obs)

}