R/print.selection.R

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

Any scripts or data that you put into this service are public.

sampleSelection documentation built on Jan. 13, 2021, 7:49 p.m.