File: ci.AgrestiCoull.R

package info (click to toggle)
r-cran-optimalcutpoints 1.1-5-1
  • links: PTS, VCS
  • area: main
  • in suites: bookworm, forky, sid, trixie
  • size: 432 kB
  • sloc: makefile: 2
file content (9 lines) | stat: -rw-r--r-- 343 bytes parent folder | download | duplicates (2) 
1
2
3
4
5
6
7
8
9
 
ci.AgrestiCoull <-
function(measure, n, conf.level) {
	z <- qnorm(1-((1-conf.level)/2))
   
   	ll <- (measure+(z^2/(2*n))-z*sqrt((measure*(1-measure)+(z^2/(4*n)))/n))/(1+(z^2/n))
   	ul <- (measure+(z^2/(2*n))+z*sqrt((measure*(1-measure)+(z^2/(4*n)))/n))/(1+(z^2/n)) 
   
   	res <- list (ci = matrix(c(ll,ul), ncol = 2))         
}