Nothing
#' Print miss.glm
#'
#' Print results for class \code{miss.glm}.
#' @param x an object of class "\code{miss.glm}", usually, a result of a call to \code{\link{miss.glm}}.
#' @param digits minimal number of significant digits.
#' @param ... further arguments passed to or from other methods.
#' @return No return value, called for coefficient and standard error estimates print.
#' @examples
#' ## For examples see example(miss.glm)
#' @export
print.miss.glm <- function(x, digits = max(3L, getOption("digits") - 3L), ...)
{
cat("\nCall: ",
paste(deparse(x$call), sep = "\n", collapse = "\n"), "\n\n", sep = "")
if(length(coef(x))) {
cat("Coefficients")
cat(":\n")
print.default(format(x$coefficients, digits = digits),
print.gap = 2, quote = FALSE)
} else cat("No coefficients\n\n")
cat("Standard error estimates")
if(length(x$s.err)) {
if(is.character(co <- x$contrasts))
cat(" [contrasts: ",
apply(cbind(names(co),co), 1L, paste, collapse = "="), "]")
cat(":\n")
print.default(format(x$s.err, digits = digits),
print.gap = 2, quote = FALSE)
} else cat("No standard error estimates \n\n")
cat("Log-likelihood:", format(signif(x$ll, digits)))
cat("\n")
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.