View source: R/translogHessian.R
translogHessian | R Documentation |
Calculate the Hessian matrices of a translog function.
translogHessian( xNames, data, coef, yName = NULL, dataLogged = FALSE, bordered = FALSE )
xNames |
a vector of strings containing the names of the independent variables. |
data |
dataframe containing the data. |
coef |
vector containing all coefficients. |
yName |
an optional string containing the name of the dependent
variable.
If it is |
dataLogged |
logical. Are the values in |
bordered |
logical. Should the bordered Hessians be returned? |
a list containing following the (bordered) Hessian matrices at each data point.
Arne Henningsen
translogEst
, translogDeriv
and
translogCalc
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 <- translogEst( "qOutput", c( "qLabor", "land", "qVarInput", "time" ), germanFarms ) # compute the Hessian matrices (with "fitted" output) hessians <- translogHessian( c( "qLabor", "land", "qVarInput", "time" ), germanFarms, coef( estResult ) ) hessians[[ 1 ]] # compute the Hessian matrices (with observed output) hessiansObs <- translogHessian( c( "qLabor", "land", "qVarInput", "time" ), germanFarms, coef( estResult ), "qOutput" ) hessiansObs[[ 1 ]] # compute the bordered Hessian matrices borderedHessians <- translogHessian( c( "qLabor", "land", "qVarInput", "time" ), germanFarms, coef( estResult ), bordered = TRUE ) borderedHessians[[ 1 ]]
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.