R/summary.evmSim.R

In harrysouthworth/texmex: Statistical Modelling of Extreme Values

#' @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)
}