micEcon (version 0.5-22)

translogEst: Estimate a translog function

Description

Estimate a translog function.

Usage

translogEst( yName, xNames, data, shifterNames = NULL,
      quadHalf = TRUE, dataLogged = FALSE, ...)
   ## S3 method for class 'translogEst':
print( x, \dots )

Arguments

yName

a string containing the name of the dependent variable.

xNames

a vector of strings containing the names of the independent variables.

data

data frame containing the data (possibly a panel data frame created with plm.data).

shifterNames

a vector of strings containing the names of the independent variables that should be included as shifters only (not in quadratic or interaction terms).

quadHalf

logical. Multiply the quadratic terms by one half?

dataLogged

logical. Are the values in data already logged? If FALSE, the logarithms of all variables (yName, xNames, shifterNames) are used except for shifter variables that are fact

x

An object of class translogEst.

...

further arguments of translogEst are passed to lm or plm; further arguments of print.translogEst are current

Value

• a list of class translogEst containing following objects:
• est
  the object returned by lm or plm.
• nExog
  length of argument xNames.
• nShifter
  length of argument shifterNames.
• residuals
  residuals.
• fitted
  fitted values.
• coef
  vector of all coefficients.
• coefCov
  covariance matrix of all coefficients.
• r2
  $R^2$ value.
• r2bar
  adjusted $R^2$ value.
• nObs
  number of observations.
• model.matrix
  the model matrix.
• call
  the matched call.
• yName
  argument yName.
• xNames
  argument xNames.
• shifterNames
  argument shifterNames.
• quadHalf
  argument quadHalf.
• dataLogged
  argument dataLogged.

See Also

translogCalc, translogDeriv and quadFuncEst.

Examples

data( germanFarms )
   # output quantity:
   germanFarms$qOutput <- germanFarms$vOutput / germanFarms$pOutput
   # quantity of variable inputs
   germanFarms$qVarInput <- germanFarms$vVarInput / germanFarms$pVarInput
   # a time trend to account for technical progress:
   germanFarms$time <- c(1:20)

   # estimate a quadratic production function
   estResult <- translogEst( "qOutput", c( "qLabor", "land", "qVarInput", "time" ),
      germanFarms )

   estResult
   summary( estResult )