R/print.mvProbit.R

In mvProbit: Multivariate Probit Models

Defines functions print.mvProbit

Documented in print.mvProbit

print.mvProbit <- function( x, 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 ), digits = digits )
   cat( "\n" )
   invisible( x )
}

Try the mvProbit package in your browser