TE: Technical efficiency measure.

In woraphonyamaka/SFMkink: Copula based stochastic frontier kink model

Technical efficiency measure.

Description

Computing and plotting the technical efficiency.

Usage

TE(theta,Y,X,z=NULL,family,type)

Arguments

theta	The estimated parameters form the model
Y	vector of dependent variable
X	matrix of independent variable with kink effect
z	matrix of independent variable without kink effect
family	Copula function eg. Gaussain=1, Student-t=2 (see, Vinecopula package)
type	nonlinear structure, type=c("kink", "threshold")"

Details

Computing and plotting the technical efficiency.

Value

itemOutput Technical efficiency series itemplot Plot of Technical efficiency

Author(s)

Worphon Yamaka and Paravee Maneejuk

References

Maneejuk, P., Yamaka, W., & Sriboonchitta, S. (2017). Analysis of global competitiveness using copula-based stochastic frontier kink model. In Robustness in Econometrics (pp. 543-559). Springer, Cham.

Examples

### TE
theta=model$result[,1]
tekink=TE(theta,Y,X,z=NULL,family=family,type=type)
tekink=rev(sort(tekink))
plot(tekink,lty=1,col="white",xlab = 'observation', ylab = 'TE value', main = "Technical Efficiency", ylim=c(0,1))
lines(tekink, lty=1,type="l",col="blue",lwd=2)
legend("topright",merge=FALSE,fill=c("blue"), col=c("blue"),
text.col=c("red","blue","black"),lwd=2,legend=c("Kink"),cex=1, bg='gray90')

woraphonyamaka/SFMkink documentation built on July 8, 2022, 9:15 a.m.