«Применение современных ит в анализе эффективности функционирования банков рб» (стр. 9 из 9)

# Bootstrap for bias and confidence intervals

tmp2=boot.sw98(XOBS=x, YOBS=y, DHAT=tmp1, RTS=3, ORIENTATION=2, NREP=2000, CI.TYPE=2, OUTPUT.FARRELL=TRUE)

tmp3=bootstrap.ci(BOOT=tmp2$boot, alpha=c(0.05), BHAT=tmp2$dhat, DEA=TRUE, METHOD=2)

out=matrix(nrow=ROWS,ncol=3)

out[,1]=tmp2$dhat

out[,2]=tmp2$conf.int[,1]+tmp2$bias

out[,3]=tmp2$conf.int[,2]+tmp2$bias

print(out)

# Save result

write.table(out, OUTFILE, sep=«;», dec=«,»)

ПРИЛОЖЕНИЕ В