R/propCI.R

propCI <- function(..., 
	method=c('binom.test','prop.test','wilson','agresti-coull')) 
{
	if (is.character(method)) {
		method <- match.arg(method)
	}
	switch( method,
		prop.test = interval(prop.test(...)),
		binom.test = interval(binom.test(...)),
		wilson = wilsonCI(...),
		'agresti-coull' = wilsonCI(...)
	)
}

Try the abd package in your browser

Any scripts or data that you put into this service are public.

abd documentation built on May 2, 2019, 4:46 p.m.