R/print.selection.R

In sampleSelection: Sample Selection Models

Defines functions print.selection

Documented in print.selection

print.selection <- function( x,
      digits = max(3, getOption("digits") - 3), ... ) {
   cat( "\nCall:\n", deparse( x$call ), "\n\n" )
   cat( "Coefficients:\n" )
   print( coef( x ), digits = digits )
   cat( "\n" )
   invisible( x )
}

Try the sampleSelection package in your browser