https://github.com/cran/MuMIn
Tip revision: 261df4b532c6a0965133d1a7a57c3860bdd3bc18 authored by Kamil BartoĊ on 09 April 2019, 11:32:46 UTC
version 1.43.6
version 1.43.6
Tip revision: 261df4b
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"))