Defines functions summary.poolbin

Documented in summary.poolbin

summary.poolbin <-
function(object, scale=object$scale, ...){
args <- list(...)
if(is.null(args$digits)) digits <- 4
else digits <- args$digits
cat("Estimation of Binomial Proportion for Pooled Data\n\n")
print(object, scale=scale, ...)
cat(paste("Point estimator:",object$pt.method,"\n"))
cat(paste("CI method:",object$ci.method,"\n\n"))
cat(paste("Number of individuals:",sum(object$n * object$m),"\n"))
cat(paste("Number of pools:",sum(object$n),"\n"))
cat(paste("Number of positive pools:",sum(object$x),"\n"))

Try the binGroup package in your browser

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

binGroup documentation built on May 30, 2017, 5:35 a.m.