prodestROB: Estimate productivity - Robinson-Wooldridge method

Description Usage Arguments Details Value Author(s) References Examples

View source: R/prodestROB.R

Description

The prodestROB() function accepts at least 6 objects (id, time, output, free, state and proxy variables), and returns a prod object of class S3 with three elements: (i) a list of model-related objects, (ii) a list with the data used in the estimation and estimated vectors of first-stage residuals, and (iii) a list with the estimated parameters and their bootstrapped standard errors.

Usage

1
  prodestROB(Y, fX, sX, pX, idvar, timevar, cX = NULL)

Arguments

Y

the vector of value added log output.

fX

the vector/matrix/dataframe of log free variables.

sX

the vector/matrix/dataframe of log state variables.

pX

the vector/matrix/dataframe of log proxy variables.

cX

the vector/matrix/dataframe of control variables. By default cX= NULL.

idvar

the vector/matrix/dataframe identifying individual panels.

timevar

the vector/matrix/dataframe identifying time.

Details

Consider a Cobb-Douglas production technology for firm i at time t

where y_{it} is the (log) output, w_it a 1xJ vector of (log) free variables, k_it is a 1xK vector of state variables and ε_{it} is a normally distributed idiosyncratic error term. The unobserved technical efficiency parameter ω_{it} evolves according to a first-order Markov process:

and u_{it} is a random shock component assumed to be uncorrelated with the technical efficiency, the state variables in k_{it} and the lagged free variables w_{it-1}. Wooldridge method allows to jointly estimate OP/LP two stages jointly in a system of two equations. It relies on the following set of assumptions:

Under the above set of assumptions, It is possible to construct a system gmm using the vector of residuals from

where the unknown function f(.) is approximated by a n-th order polynomial and g(x_{it} , m_{it}) = λ_{0} + c(x_{it} , m_{it})λ. In particular, g(x_{it} , m_{it}) is a linear combination of functions in (x_{it} , m_{it}) and c_{it} are the addends of this linear combination. The residuals r_{it} are used to set the moment conditions

with the following set of instruments:

According to the input timing in ACF, the first equation proposed by Wooldridge would not be useful to identify any of the parameters, but it would be possible to achieve the identification from the second equation by exploiting the orthogonality condition:

with an instrumental variable version of Robinson (1988)'s estimator.

Value

The output of the function prodestROB is a member of the S3 class prod. More precisely, is a list (of length 3) containing the following elements:

Model, a list containing:

Data, a list containing:

Estimates, a list containing:

Members of class prod have an omega method returning a numeric object with the estimated productivity - that is: ω_{it} = y_{it} - (α + w_{it}β + k_{it}γ). FSres method returns a numeric object with the residuals of the first stage regression, while summary, show and coef methods are implemented and work as usual.

Author(s)

Gabriele Rovigatti

References

Ackerberg, D., K. Caves, and G. Frazer (2015). "Identification Properties of Recent Production Function Estimators." Econometrica 83(6): 2411-2451.

Robinson, P. M. (1988). "Root-N-consistent semiparametric regression." Econometrica: Journal of the Econometric Society, 931-954.

Wooldridge, J M (2009). "On estimating firm-level production functions using proxy variables to control for unobservables." Economics Letters, 104, 112-114.

Examples

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
    data("chilean")

    # we fit a model with two free (skilled and unskilled), one state (capital)
    # and one proxy variable (electricity)

    ROB.IV.fit <- prodestROB(chilean$Y, fX = cbind(chilean$fX1, chilean$fX2),
                                   chilean$sX, chilean$pX, chilean$idvar, chilean$timevar)

    # show results
    ROB.IV.fit

    
      # estimate a panel dataset - DGP1, various measurement errors - and run the estimation
      sim <- panelSim()

      ROB.IV.sim1 <- prodestROB(sim$Y, sim$fX, sim$sX, sim$pX1, sim$idvar, sim$timevar)
      ROB.IV.sim2 <- prodestROB(sim$Y, sim$fX, sim$sX, sim$pX2, sim$idvar, sim$timevar)
      ROB.IV.sim3 <- prodestROB(sim$Y, sim$fX, sim$sX, sim$pX3, sim$idvar, sim$timevar)
      ROB.IV.sim4 <- prodestROB(sim$Y, sim$fX, sim$sX, sim$pX4, sim$idvar, sim$timevar)

      # show results in .tex tabular format
      printProd(list(ROB.IV.sim1, ROB.IV.sim2, ROB.IV.sim3, ROB.IV.sim4),
                parnames = c('Free','State'))
    
  

prodest documentation built on June 20, 2018, 5:04 p.m.