translogCalc {micEcon} | R Documentation |
Calculate the dependent variable of a translog function.
translogCalc( xNames, data, coef, shifterNames = NULL, quadHalf = TRUE, dataLogged = FALSE )
xNames |
a vector of strings containing the names of the independent variables. |
data |
dataframe containing the data. |
coef |
vector containing all coefficients:
if there are n exogenous variables in xNames
and m shifter variables in shifterNames ,
the n+1 alpha coefficients must have names
a_0 , ..., a_n ,
the n*(n+1)/2 beta coefficients must have names
b_1_1 , ..., b_1_n , ..., b_n_n ,
and the m delta coefficients must have names
d_1 , ..., d_m
(only the elements of the upper right triangle of the beta matrix
are directly obtained from coef ;
the elements of the lower left triangle are obtained by assuming
symmetry of the beta matrix). |
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? |
A vector containing the endogenous variable.
If the inputs are provided as logarithmic values
(argument dataLogged
is TRUE
),
the endogenous variable is returned as logarithm;
non-logarithmic values are returned otherwise.
Arne Henningsen
translogEst
and translogDeriv
.
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 Translog production function estResult <- translogEst( "qOutput", c( "qLabor", "land", "qVarInput", "time" ), germanFarms ) translogCalc( c( "qLabor", "land", "qVarInput", "time" ), germanFarms, coef( estResult ) ) #equal to estResult$fitted