## The function is currently defined as
function (x, digits = max(3, getOption("digits") - 3), na.print = "",
...)
{
cat("Call: ", deparse(x$call), "")
cat("Coefficients:
")
print.default(format(x$coefficients, digits = digits), print.gap = 2,
quote = FALSE)
cat("Standard errors:
")
print.default(format(x$sd, digits = digits), print.gap = 2,
quote = FALSE)
if(x$mixed){
cat("Standard deviation in mixing distribution: ", x$sigma, "")
cat("Std. Error: ", x$sigma.sd, "")
}
cat("Degrees of Freedom:",
x$df.residual, "Residual
")
cat("Residual Deviance:",
format(signif(x$deviance, digits)),
"tAIC:",
format(signif(x$aic, digits)), "")
invisible(x)
}Run the code above in your browser using DataLab