R/print.summary.mvProbitMargEff.R

In mvProbit: Multivariate Probit Models

Defines functions print.summary.mvProbitMargEff

Documented in print.summary.mvProbitMargEff

print.summary.mvProbitMargEff <- function( x, digits = 4, ... ) {

   if( length( digits ) == 5 ) {
     for( i in 1:4 ) {
       x[ , i ] <- round( x[ , i ], digits = digits[ i + 1 ] )
     }
     digits <- digits[1]
   }
  
   printCoefmat( x, digits = digits )

   invisible( x )
}

Try the mvProbit package in your browser