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 Cobb-Douglas production function
estResult <- translogEst( "qOutput", c( "qLabor", "land", "qVarInput", "time" ),
germanFarms, linear = TRUE )
cobbDouglasCalc( c( "qLabor", "land", "qVarInput", "time" ), germanFarms,
coef( estResult )[ 1:5 ] )
#equal to estResult$fittedRun the code above in your browser using DataLab