R/coefficients.migpd.R

Defines functions coef.migpd

#' @export
coef.migpd <-
function(object, ...){
    co <- sapply(object$models, coef)
    up <- sapply(object$models, endPoint, verbose=FALSE)
    co <- rbind(object$mth, object$mqu, co, up)
    dimnames(co) <- list(c("Threshold", "P(X < threshold)", "sigma", "xi", "Upper end point"),
                           names(object$models))
    co[3, ] <- exp(co[3, ])
    co
}

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.