data( germanFarms, package = "micEcon" )
# output quantity:
germanFarms$qOutput <- germanFarms$vOutput / germanFarms$pOutput
# quantity of intermediate inputs
germanFarms$qVarInput <- germanFarms$vVarInput / germanFarms$pVarInput
## CES: Land & Intermediate Inputs
cesLandInt <- cesEst( yName = "qOutput",
xNames = c( "land", "qVarInput" ), data = germanFarms,
returnGrad = TRUE )
# conduct the generalized Durbin-Watson test
dwt( cesLandInt )
Run the code above in your browser using DataLab