Nothing
`print.bgpd` <-
function( x , print.seed=FALSE, ...){
print( x$call )
if ( print.seed ){
cat( "Random seed:", x$seed, "\n" )
}
cat( "Acceptance rate: ", format(x$acc) )
cat( "\n\nMAP estimates:\n" )
co <- coef(x)
map <- x$map$coefficients
names(map) <- names(co)
print( map , ... )
cat( "\nPosterior means:\n" )
m <- coef(x)
print( m , ... )
invisible()
}
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.