https://github.com/cran/MuMIn
Tip revision: a0f20e50f08f1cb37bc636092dfc8f46eb3f0187 authored by Kamil BartoĊ on 14 June 2009, 00:00:00 UTC
version 0.12.2
version 0.12.2
Tip revision: a0f20e5
AICc.R
`AICc` <-
function(object, ..., k = 2) {
if(length(list(...))) {
object <- list(object, ...)
val <- as.data.frame(t(sapply(object,
function(el) {
z <- getAICc(el, k = k)
c(attr(z, "df"), attr(z, "AIC"), z)
}
)))
names(val) <- c("df", "AIC", "AICc")
Call <- match.call()
Call$k <- NULL
row.names(val) <- as.character(Call[-1])
return(val)
} else {
return(getAICc(object, k = k))
}
}