R/coef.npsf.R

In npsf: Nonparametric and Stochastic Efficiency and Productivity Analysis

Defines functions coef.npsf

Documented in coef.npsf

coef.npsf <- function( object, ... ) {
  if(is.null(object$coef) | is.null(object)){
    stop( gettextf("There are no coefficients in '%s'.", deparse(substitute(object))) )
  }
  return( object$coef )
}

Try the npsf package in your browser