R/print.migpd.R

Defines functions `print.migpd`

`print.migpd` <-
function( x , ... ){
	#print( x$call, ... )
	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()
}

`show.migpd` <- print.migpd

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, 4:56 p.m.