1## Akaike (and other) information criteria
2AIC.maxLik <- function(object, ..., k = 2)
3    -2*logLik(object) + k*nParam(object, free=TRUE)
4