R/print.totpop.R

Defines functions print.totpop

Documented in print.totpop

print.totpop <-
function(x,digits = max(3, getOption("digits") - 3),...){

lev<-100*x$prob.level

cat("Posterior mean of total population size =",round(x$meanTOT,digits),"\n")
cat(lev,"% highest posterior density interval for total population size = (",round(x$int,digits),") \n")}

Try the conting package in your browser

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

conting documentation built on Jan. 20, 2018, 9:07 a.m.