translogEst             package:micEcon             R Documentation

_E_s_t_i_m_a_t_e _a _t_r_a_n_s_l_o_g _f_u_n_c_t_i_o_n

_D_e_s_c_r_i_p_t_i_o_n:

     Estimate a translog function.

_U_s_a_g_e:

        translogEst( yName, xNames, data, quadHalf = TRUE, logValues = FALSE )

_A_r_g_u_m_e_n_t_s:

   yName: a vector of strings containing the name of the dependent
          variable.

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

    data: dataframe containing the data.

quadHalf: logical. Multiply the quadratic terms by one half?

logValues: logical. Are the values in 'data' already logged?

_V_a_l_u_e:

     a list of class 'translogEst' containing following objects: 

      lm: a list returned by 'lm'.

residuals: residuals.

  fitted: fitted values.

    coef: a list containing the the estimated coefficients: alpha0 =
          alpha_0 (scalar), alpha = alpha_i (vector), beta = beta_ij
          (matrix).

 allCoef: vector of all coefficients.

allCoefCov: Covariance matrix of all coefficients.

      r2: R^2 value.

   r2bar: adjusted R^2 value.

    nObs: number of observations.

model.matrix: the model matrix.

_A_u_t_h_o_r(_s):

     Arne Henningsen ahenningsen@agric-econ.uni-kiel.de

_S_e_e _A_l_s_o:

     'translogCalc', 'translogDeriv' and 'quadFuncEst'.

_E_x_a_m_p_l_e_s:

        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$coef
        estResult$r2

