Nothing
`coefficients.gpd` <-
function( object, ... ) {
res <- object$coefficients
if ( length( res ) == 2 )
names( res ) <- c( "phi", "xi" )
res
}
`coef.gpd` <-
function( object, ... ) {
coefficients.gpd(object)
}
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.