https://github.com/cran/MuMIn
Tip revision: 1eb8446680cb503543510e687d084d3126ca9d2f authored by Kamil BartoĊ on 13 July 2012, 00:00:00 UTC
version 1.7.11
version 1.7.11
Tip revision: 1eb8446
oldR.R
# compatibility with older versions of R
if(!("intercept" %in% names(formals(stats::reformulate)))) {
`reformulate` <- function (termlabels, response = NULL, intercept = TRUE) {
ret <- stats::reformulate(termlabels, response = response)
if (!intercept) ret <- update.formula(ret, .~. -1)
attr(ret, ".Environment") <- parent.frame()
ret
}
}
if (!exists("nobs", mode = "function", where = "package:stats", inherits = FALSE)) {
`nobs` <- function(object, ...) UseMethod("nobs")
`nobs.default` <- function(object, ...) NROW(resid(object, ...))
`nobs.glm` <- function (object, ...) sum(!is.na(object$residuals))
}