binciWu(x,n,alpha=0.05,trueval=TRUE,na.rm=TRUE)
binciWl(c(rep(5,TRUE),rep(37,FALSE)))
Run the code above in your browser using DataLab