R/print.prev.r

Defines functions print.prev

Documented in print.prev

print.prev <- function(x, ...){

es <- format(x$res*100, digits = 3, trim=TRUE)

cat("\nEstimated prevalence (%) with ",(1-x$prob.lev)*100,"% interval:\n\n",sep="")

cat(es[2]," (",es[1],",",es[3],")\n\n",sep="")

invisible(x)

}
egeminiani/GJRM documentation built on Sept. 1, 2020, 6:41 p.m.