quadFuncEst( yName, xNames, data, quadHalf = TRUE, exVarScale = 1 )
quadFuncEst
containing following objects:lm
.quadFuncCalc
, quadFuncDeriv
,
translogEst
and snqProfitEst
.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 <- quadFuncEst( "qOutput", c( "qLabor", "land", "qVarInput", "time" ),
germanFarms )
estResult$coef
estResult$r2
Run the code above in your browser using DataLab