translogEst {micEcon}

Estimate a translog function

Description

Estimate a translog function.

Usage

   translogEst( yName, xNames, data, shifterNames = NULL,
      dataLogged = FALSE, ... )

   ## S3 method for class 'translogEst'
print( x, ... )

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 pdata.frame).

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).

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 factors or logical variables.

x

An object of class translogEst.

...

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

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.

dataLogged

argument dataLogged.

Author(s)

Arne Henningsen

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 )