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
init.R
.onLoad <- function(libname, pkgName) {
# Ugly tricks to put own replacement methods on top (don't try this at home):
asNeeded <- function(pkgName, fun) {
if(paste("package", pkgName, sep = ":") %in% search()) fun() else
setHook(packageEvent(pkgName, "attach"), fun)
}
regmethod <- function(funname, classname, s4 = FALSE,
fun = get(paste0(funname, ".", classname), getNamespace(.packageName)),
envir = .GlobalEnv)
do.call(if(s4) "setMethod" else "registerS3method", list(funname, classname, fun),
envir = envir)
asNeeded("unmarked", function(...) regmethod("logLik", "unmarkedFit", TRUE))
asNeeded("lme4", function(...) regmethod("predict", "merMod"))
asNeeded("nlme", function(...) regmethod("predict", "lme"))
asNeeded("nlme", function(...) regmethod("predict", "gls"))
### Done here and not in NAMESPACE as I don't want to link to xtable:
asNeeded("xtable", function(...) regmethod("xtable", "summary.averaging"))
asNeeded("xtable", function(...) regmethod("xtable", "averaging"))
asNeeded("xtable", function(...) regmethod("xtable", "model.selection"))
}