R/print.evmSim.R

Defines functions print.evmSim

#' @export
print.evmSim <- function(x , print.seed=FALSE, ...){
    print(x$call)
    print(x$map$family, verbose=FALSE)

    if (print.seed){
        cat("Random seed:", x$seed, "\n")
    }
    cat("Acceptance rate: ", signif(attr(x$chains, "acceptance"), 3))

    cat("\n\nMAP estimates:\n")
    co <- coef(x)
    map <- x$map$coefficients
    names(map) <- names(co)

    print(map , ...)
    cat("\nPosterior means:\n")
    m <- coef(x)
    print(m , ...)

    invisible(x)
}

Try the texmex package in your browser

Any scripts or data that you put into this service are public.

texmex documentation built on May 2, 2019, 5:41 a.m.