https://github.com/cran/MuMIn
Tip revision: 1f8ac64cc410215ef2e55e5e297eaa5bd15a0b84 authored by Kamil BartoĊ on 25 January 2012, 13:25:36 UTC
version 1.7.0
version 1.7.0
Tip revision: 1f8ac64
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))
}