R/print.poolbin.R

Defines functions print.poolbin

Documented in print.poolbin

print.poolbin <-
function(x, scale=x$scale, ...){
args <- list(...)
if(is.null(args$digits)) digits <- 4
else digits <- args$digits
p <- round(scale*x$p,digits)
lcl <- round(scale*x$lcl, digits)
ucl <- round(scale*x$ucl, digits)
mat <- matrix(c(p,lcl,ucl,scale),nrow=1) # really to match Hmisc's binconf()
dimnames(mat) <- list(c(""),c("PointEst","Lower","Upper","Scale"))
if(scale == 1) mat <- mat[,-4]
print(mat)
invisible(x)
}

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.