Nothing
print.tsglm <- function(x, digits=max(3, getOption("digits") - 3), ...){
cat("\nCall:\n", paste(deparse(x$call), sep="\n", collapse="\n"),
"\n\n", sep="")
if(length(coef(x))>0){
cat("Coefficients:\n")
print.default(format(coef(x), digits=4), print.gap=2, quote=FALSE)
}else{
if(length(x$init)>0){
cat("Initial Coefficients:\n")
print.default(format(x$init, digits=4), print.gap=2, quote=FALSE)
warning("Only initial estimation was made")
}else{
cat("No coefficients\n")
}
}
cat("\n")
if(x$distr=="nbinom"){
cat("Overdispersion coefficient 'sigmasq' was estimated to be ", x$sigmasq, ".\n\n", sep="")
}
invisible(x)
}
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.