Skip to main content

Browse the archive

https://github.com/cran/metafor
05 April 2024, 22:49:16 UTC
Revision 994d26a65455fac90760ad6a004ec1eaca5856b1 authored by Wolfgang Viechtbauer on 27 September 2023, 18:40:02 UTC, committed by cran-robot on 27 September 2023, 19:30:39 UTC 
version 4.4-0
1 parent 6b85146
Raw File
Tip revision: 994d26a65455fac90760ad6a004ec1eaca5856b1 authored by Wolfgang Viechtbauer on 27 September 2023, 18:40:02 UTC
version 4.4-0
Tip revision: 994d26a
deviance.rma.r 
deviance.rma <- function(object, REML, ...) {

   mstyle <- .get.mstyle("crayon" %in% .packages())

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

   # in case something like logLik(res1, res2) is used

   if (!missing(REML) && inherits(REML, "rma"))
      REML <- NULL

   if (missing(REML) || is.null(REML)) {
      if (object$method == "REML") {
         REML <- TRUE
      } else {
         REML <- FALSE
      }
   }

   if (REML) {
      val <- object$fit.stats["dev","REML"]
   } else {
      val <- object$fit.stats["dev","ML"]
   }

   return(val)

}
back to top