View source: R/translogProdFuncMargCost.R
translogProdFuncMargCost | R Documentation |
Calculate the marginal costs of the output from a translog production function.
translogProdFuncMargCost( yName, xNames, wNames, data, coef, dataLogged = FALSE )
yName |
a single character string containing the name of the output quantity. |
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 vector containing the marginal costs of producing the output.
Arne Henningsen and Geraldine Henningsen
translogEst
, translogCalc
,
translogDeriv
, translogEla
and
translogCostEst
.
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) # generate (artificial) prices germanFarms$pLand <- 200 + 15 * germanFarms$time germanFarms$pTime <- 1 # estimate a single-output translog production function estResult <- translogEst( "qOutput", c( "qLabor", "land", "qVarInput", "time" ), germanFarms ) # compute the marginal costs of producing the output margCost <- translogProdFuncMargCost( yName = "qOutput", xNames = c( "qLabor", "land", "qVarInput", "time" ), wNames = c( "pLabor", "pLand", "pVarInput", "pTime" ), data = germanFarms, coef = coef( estResult ) )
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.