R/translogEla.R

In micEcon: Microeconomic Analysis and Modelling

translogEla <- function( xNames, data, coef, coefCov = NULL,
   dataLogged = FALSE ) {

   checkNames( c( xNames ), names( data ) )

   nExog <- length( xNames )
   nCoef <- 1 + nExog + nExog * ( nExog + 1 ) / 2

   if( nCoef > length( coef ) ) {
      stop( "a translog function with ", nExog, " exogenous variables",
         " must have at least ", nCoef, " coefficients" )
   }

   if( dataLogged ) {
      logData <- data
   } else {
      logData <- logDataSet( data = data,
         varNames = xNames )
   }

   result <- quadFuncDeriv( xNames = xNames, data = logData, coef = coef, 
      coefCov = coefCov )

   return( result )
}