# calculate exceedance fraction and exact CLs for Example data
# Appendix Mulhausen and Damiano(1998) Ignacion and Bullock (2006
data(aihand)
x <- aihand$x ; det <- rep(1,length(x))
aiha<-data.frame(x,det) # complete data
unlist(efraction.exact(x,gam=0.95,L=5) ) # exact CLs
unlist(efraction.ml(aiha,gam=0.95,L=5)) # ML CLs
unlist(efclnp(aiha,L=5)) # nonparametric CLs
Run the code above in your browser using DataLab