R/summary.translogRayEst.R

In micEconDist: Microeconomic Production Analysis with Distance Functions

summary.translogRayEst <- function( object, ... ) {

   object$coefTable <- coefTable( coef( object ),
         diag( vcov( object ) )^0.5, df.residual( object$est ) )

   class( object ) <- "summary.translogRayEst"
   return( object )
}