TE: Technical efficiency measure.

In woraphonyamaka/copulaSQM: Copula based Stochastic Frontier Quantile Model

Description

Computing and plotting the technical efficiency.

Usage

TE(theta,Y,X,family=1,tau)

Arguments

theta	The estimated parameters form the model
Y	Vector of dependent variable
X	Matrix of independent variable
family	Copula function eg. Gaussain=1, Student-t=2 (see, Vinecopula package)
tau	The qauntile level range between 0-1

Details

Computing and plotting the technical efficiency.

Value

itemOutput Technical efficiency series itemplot Plot of Technical efficiency

Author(s)

Woraphon Yamaka

References

Pipitpojanakarn, V., Maneejuk, P., Yamaka, W., & Sriboonchitta, S. (2016, November). Analysis of agricultural production in Asia and measurement of technical efficiency using copula-based stochastic frontier quantile model. In International Symposium on Integrated Uncertainty in Knowledge Modelling and Decision Making (pp. 701-714). Springer, Cham.

Examples

library(truncnorm)
library(mvtnorm)
library("VineCopula")
library("frontier")
library(ald)

# example included in FRONTIER 4.1 (cross-section data)
data(front41Data)
attach(front41Data)
# Cobb-Douglas production frontier
cobbDouglas <- sfa( log(output)~log(capital)+log(labour),data=front41Data)
summary(cobbDouglas)


# Select familty  copula upper and lower bouubd ( look at Vinecopula package)
# family=1   # 1 is Gaussian, 2 is Student-t, 3 is Clayton and so on....
#Gaussian (-.99, .99)
#Student t (-.99, .99)
#Clayton (0.1, Inf)

Y=log(output)
X=cbind(log(capital),log(labour))
model=copSQM(Y=Y,X=X,family=1,tau=0.5,RHO=0.5,LB=-0.99,UB=0.99)

#EX: Plot the technical efficiency
tau=0.5
te1=TE(model$result[,1],Y=Y,X=X,family=1,tau)

woraphonyamaka/copulaSQM documentation built on May 27, 2021, 7:18 p.m.