R/print.simexaft.R

In simexaft: simexaft

print.simexaft <-
function (x, digits = max(3, getOption("digits") - 3), ...) 
{
    cat("\nSIMEX-Variables: ")
    cat(x$SIMEXvariable, sep = ", ")
    cat("\nNumber of Simulations: ", paste(x$B), "\n\n", sep = "")
    if (length(coef(x))) {
        cat("Coefficients:\n")
            print.default(format(coef(x), digits = digits), print.gap = 2, 
            quote = FALSE)
    }
    else cat("No coefficients\n")
    cat("\n")

}