R/vcov.npsf.R

In npsf: Nonparametric and Stochastic Efficiency and Productivity Analysis

Defines functions vcov.npsf

Documented in vcov.npsf

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

Try the npsf package in your browser