Nothing
      setMethod("extractAIC",
    signature(fit = "mle"),
    function (fit, scale, k = 2, ...) 
    {
 	   res <- logLik(fit)
 	   edf <- attr(res, "df")
	    c(edf, -2 * res + k * edf)
    }
)
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.