Nothing
residuals.tsglm <- function(object, type=c("response", "pearson", "anscombe"), ...){
type <- match.arg(type)
result <- switch(type,
"response"=object$residuals,
"pearson"=object$residuals/sddistr(meanvalue=fitted(object), distr=object$distr, distrcoefs=object$distrcoefs),
"anscombe"=ardistr(response=object$response, meanvalue=fitted(object), distr=object$distr, distrcoefs=object$distrcoefs)
)
return(result)
}
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.