Nothing
#' @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)
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.