https://github.com/cran/metafor
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
1 parent 6b85146
Tip revision: 994d26a65455fac90760ad6a004ec1eaca5856b1 authored by Wolfgang Viechtbauer on 27 September 2023, 18:40:02 UTC
version 4.4-0
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)
}
![swh spinner](/static/img/swh-spinner.gif)
Computing file changes ...