#' @method AIC fit
#' @export
AIC.fit<-function(object,...)
{
AICvalue<-object$AIC
return(AICvalue)
}
#' @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)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.