R/summary.translogRayEst.R

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

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

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

Try the micEconDist package in your browser

Any scripts or data that you put into this service are public.

micEconDist documentation built on May 2, 2019, 4:41 p.m.