Nothing
print.censReg <- function( x, logSigma = TRUE, digits = 4, ... ) {
cat( "\n" )
cat( "Call:\n" )
cat( paste( deparse( x$call ), sep = "\n", collapse = "\n" ) )
cat( "\n\n" )
cat( "Coefficients:\n" )
print( coef( x, logSigma = logSigma ), digits = digits )
cat( "\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.