R/print.infl.rma.uni.r

Defines functions print.infl.rma.uni

Documented in print.infl.rma.uni

print.infl.rma.uni <- function(x, digits=x$digits, infonly=FALSE, ...) {

   mstyle <- .get.mstyle()

   .chkclass(class(x), must="infl.rma.uni")

   digits <- .get.digits(digits=digits, xdigits=x$digits, dmiss=FALSE)

   if (x$p == 1) {

      out <- list(rstudent=x$inf$rstudent, dffits=x$inf$dffits, cook.d=x$inf$cook.d, cov.r=x$inf$cov.r,
                tau2.del=x$inf$tau2.del, QE.del=x$inf$QE.del, hat=x$inf$hat, weight=x$inf$weight,
                dfbs=x$dfbs[[1]], inf=x$inf$inf, slab=x$inf$slab, digits=digits)
      class(out) <- "list.rma"

      if (infonly)
         out[["select"]] <- !is.na(x$is.infl) & x$is.infl

   } else {

      out <- x[1:2]
      out$inf[["digits"]]  <- digits
      out$dfbs[["digits"]] <- digits
      attr(out$inf,  ".rmspace") <- TRUE
      attr(out$dfbs, ".rmspace") <- TRUE

      if (infonly) {
         out$inf[["select"]] <- !is.na(x$is.infl) & x$is.infl
         out$dfbs[["select"]] <- !is.na(x$is.infl) & x$is.infl
      }

   }

   print(out)

}
wviechtb/metafor documentation built on March 11, 2024, 11:45 a.m.