R/estfun.censReg.R

In censReg: Censored Regression (Tobit) Models

estfun.censReg <- function( x, includeSigma = TRUE, ... ) {

   result <- NextMethod( estfun, x )

   if( !includeSigma ) {
      result <- result[ , colnames( result ) != "logSigma" ]
   }

   return( result )
}