R/summary.evmSim.R

Defines functions print.summary.evmSim summary.evmSim

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

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.