https://github.com/cran/MuMIn
Tip revision: b4fae7a102a8a67407ddf3b3ef825ed34735704b authored by Kamil BartoĊ on 18 December 2019, 19:20:02 UTC
version 1.43.14
version 1.43.14
Tip revision: b4fae7a
is.R
.isREMLFit <-
isREML <-
function (x) {
if (inherits(x, "merMod"))
return(lme4::isREML(x))
if (inherits(x, c("lme", "gls", "gam")) && is.character(x$method))
return(x$method[1L] %in% c("lme.REML", "REML"))
return(FALSE)
}
isGEE <-
function(object)
inherits(object, c("geeglm", "geese", "gee", "geem", "wgee", "yagsResult"))