Nothing
extractAIC.censReg <- function( fit, scale = 0, k = 2, ... ) {
# copied from stats:::extractAIC.glm and slightly modified thereafter
n <- nObs( fit )
edf <- n - df.residual( fit )
aic <- AIC( fit )
return( c( edf, aic + ( k - 2 ) * 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.