Description Usage Arguments Details Value Author(s) References See Also Examples
Calculates alpha-quantile efficiency score (output, input and hyperbolic direction) for a set of evaluation points (xeval, yeval) depending on reference points (xobs, yobs).
1 | alphascore(xobs, yobs, xeval=xobs, yeval=yobs, alpha=0.95)
|
xobs |
a matrix of size n1 x p, input of sample points |
yobs |
a matrix of size n1 x q, output of sample points |
xeval |
a matrix of size n2 x p, input of assessment points |
yeval |
a matrix of size n2 x q, output of assessment points |
alpha |
a scalar |
A score between 0 and 1 means that DMU is inefficient. If DMU greater than 1, DMU is super-efficient.
a data.frame
object with the alpha-quantile efficiency score in:
output |
output direction |
input |
input direction |
hyper |
hyperbolic direction |
Abdelaati Daouia and Thibault Laurent
Daouia, A. and L. Simar (2007), Nonparametric efficiency analysis: A multivariate conditional quantile approach, Journal of Econometrics 140, 375-400.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 | # 1st example
data(spain)
res.alqf<-alphascore(xobs=as.matrix(spain[,c(2,3,4)]),yobs=as.matrix(spain[,1]),
alpha=0.8)
# 2nd example
data(burposte)
bur.samp<-burposte[which(burposte$xinput<50000),]
ind.samp<-sample(nrow(bur.samp),500)
xeval=as.matrix(bur.samp[ind.samp[1:100],2])
yeval=as.matrix(bur.samp[ind.samp[1:100],3])
xobs=as.matrix(bur.samp[ind.samp[101:500],2])
yobs=as.matrix(bur.samp[ind.samp[101:500],3])
alphafrontier.2d(xobs,yobs,alpha=0.95)
points(xeval,yeval,pch=16,col='red')
text(xeval,yeval,text=as.character(1:100),adj=2,cex=0.8)
score.new.0.95<-alphascore(xobs,yobs,xeval,yeval,alpha=0.95)
|
Loading required package: classInt
Loading required package: colorspace
Loading required package: rgl
Loading required package: sp
Warning messages:
1: In rgl.init(initValue, onlyNULL) : RGL: unable to open X11 display
2: 'rgl_init' failed, running with rgl.useNULL = TRUE
3: .onUnload failed in unloadNamespace() for 'rgl', details:
call: fun(...)
error: object 'rgl_quit' not found
Warning message:
In text.default(xeval, yeval, text = as.character(1:100), adj = 2, :
"text" is not a graphical parameter
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.