R/logLik.probit.R

In sampleSelection: Sample Selection Models

logLik.probit <- function( object, ... ) {
   if( !inherits( object, "maxLik" ) ) {
      stop( "the object must inherit from class 'maxLik'" )
   }
   result <- NextMethod( object )
   attr( result, "nobs" ) <- nObs( object )
   attr( result, "df" ) <- sum( activePar( object ) )
   class( result ) <- "logLik"
   return( result )
}