Description Usage Arguments Value Author(s) See Also Examples
Calculate the marginal costs of the outputs from a multiple-output translog ray production function.
1 2 | translogRayMargCost( yNames, xNames, wNames, data, coef,
dataLogged = FALSE )
|
yNames |
a vector of two character strings containing the names of the output quantities. |
xNames |
a vector of strings containing the names of the input quantities. |
wNames |
a vector of strings containing the names of the input prices. |
data |
dataframe containing the data. |
coef |
vector containing all coefficients:
if there are |
dataLogged |
logical. Are the values in |
A data frame containing the marginal costs of producing the outputs.
Arne Henningsen and Geraldine Henningsen
translogRayEst
, translogProdFuncMargCost
,
and translogCostEst
.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 | data( germanFarms, package = "micEcon" )
# quantity of crop outputs:
germanFarms$qCrop <- germanFarms$vCrop / germanFarms$pOutput
# quantity of animal outputs:
germanFarms$qAnimal <- germanFarms$vAnimal / 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)
# generate (artificial) prices
germanFarms$pLand <- 200 + 15 * germanFarms$time
germanFarms$pTime <- 1
# estimate a two-output translog ray production function
estResultRay <- translogRayEst( yNames = c( "qCrop", "qAnimal" ),
xNames = c( "qLabor", "land", "qVarInput" ),
data = germanFarms )
# compute the marginal costs of producing the two outputs
margCostRay <- translogRayMargCost( yNames = c( "qCrop", "qAnimal" ),
xNames = c( "qLabor", "land", "qVarInput" ),
wNames = c( "pLabor", "pLand", "pVarInput" ),
data = germanFarms, coef = coef( estResultRay ) )
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.