R/print.migpd.R

Defines functions print.migpd

#' @export
print.migpd <- function( x , ... ){
    cat( "\nA collection of ", dim( x$data )[ 2 ] , "generalized Pareto models.\n" )
    conv <- sapply( x$models , function( x ) x$convergence )
    if ( sum( conv ) == 0 ) cat( "\nAll models converged.\n" )
    else cat( "\nWARNING: Not all models converged.\n" )
    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.