snqProfitShadowPrices        package:micEcon        R Documentation

_S_h_a_d_o_w _P_r_i_c_e_s _o_f _a _S_N_Q _P_r_o_f_i_t _f_u_n_c_t_i_o_n

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

     Calculates the shadow prices of a Symmetric Normalized Quadratic
     (SNQ) profit function.

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

        snqProfitShadowPrices( pNames, fNames, estResult = NULL,
        data = estResult$estData, weights = estResult$weights,
        coef = estResult$coef, form = estResult$form )

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

  pNames: a vector of strings containing the names of netput prices.

  fNames: an optional vector of strings containing the names of the
          quantities of (quasi-)fix inputs.

estResult: object returned by 'snqProfitEst'.

    data: a data frame containing the data.

 weights: vector of weights of prices used for normalization.

    coef: a list containing the coefficients (at least delta and
          gamma).

    form: the functional form to be estimated (see details).

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

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

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

     'snqProfitEst', 'snqProfitCalc' and 'snqProfitEla'.

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

        data( germanFarms )
        germanFarms$qOutput   <- germanFarms$vOutput   / germanFarms$pOutput
        germanFarms$qVarInput <- -germanFarms$vVarInput / germanFarms$pVarInput
        germanFarms$qLabor    <- -germanFarms$qLabor
        germanFarms$time      <- c( 0:19 )
        pNames <- c( "pOutput", "pVarInput", "pLabor" )
        qNames <- c( "qOutput", "qVarInput", "qLabor" )
        fNames <- c( "land", "time" )

        estResult <- snqProfitEst( pNames, qNames, fNames, data = germanFarms )

        snqProfitShadowPrices( pNames, fNames, estResult )

