Nothing
#' @method AIC fit
#' @export
AIC.fit<-function(object,...)
{
return(object$AIC)
}
#' @method residuals fit
#' @export
residuals.fit<-function(object,...)
{
return(object$obs.freq-object$exp.freq)
}
#' @method fitted fit
#' @export
fitted.fit<-function(object,...)
{
return(object$exp.freq)
}
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.