Nothing
extractAIC.lognlm<-function(fit, scale = 0, k = 2, ...){
n <- length(fit$residuals)
edf <- length(fit$coefficients) + 1 #n - fit$df.residual
if(k<=0) k <-log(n)
aic <- -2* as.numeric(logLik.lognlm(fit,...)) + k*edf
c(edf, aic)
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.