R/print.Smean.R

In jmanitz/samplingbook: Survey Sampling Procedures

print.Smean <-
function(x,...) {
   cat("\nSmean object: Sample mean estimate\n", sep="")
   if(x$call$N == Inf) cat("Without ")
   else cat("With ")
   cat("finite population correction: N=",x$call$N,"\n", sep="")
   cat("\nMean estimate: ", round(x$mean,4), "\n", sep="")
   cat("Standard error: ", round(x$se,4), "\n", sep="")
   cat(100 * x$call$level,"% confidence interval: [",round(x$ci[1],4),",",round(x$ci[2],4),"]\n\n", sep="")
   invisible(x)
  }