R/is.R

Defines functions isGEE

.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"))

Try the MuMIn package in your browser

Any scripts or data that you put into this service are public.

MuMIn documentation built on Sept. 1, 2022, 1:08 a.m.