#' @export
summary.evmSim <- function(object, ...){
co <- coef(object)
se <- apply(object$param, 2, sd)
res <- cbind(co, se)
dimnames(res) <- list(names(co), c("Posterior mean", "SD"))
res <- list(object$map$family, res)
oldClass(res) <- "summary.evmSim"
res
}
#' @export
print.summary.evmSim <- function(x, ...){
print(x[[1]], verbose=FALSE, ...)
cat("\nPosterior summary:\n")
print(unclass(x[[2]]))
invisible(x)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.