1print.ecoBD <- function(x, digits = max(3, getOption("digits") -3), 2 ...) { 3 cat("\nCall:\n", deparse(x$call), "\n\n", sep="") 4 5 cat("Aggregate Lower Bounds (Proportions):\n") 6 print.default(format(x$aggWmin, digits = digits), print.gap = 2, quote = 7 FALSE) 8 cat("\nAggregate Upper Bounds (Proportions):\n") 9 print.default(format(x$aggWmax, digits = digits), print.gap = 2, quote = 10 FALSE) 11 12 if (!is.null(x$aggNmin)) { 13 cat("\nAggregate Lower Bounds (Counts):\n") 14 print.default(format(x$aggNmin, digits = digits), print.gap = 2, quote = 15 FALSE) 16 cat("\nAggregate Upper Bounds (Counts):\n") 17 print.default(format(x$aggNmax, digits = digits), print.gap = 2, quote = 18 FALSE) 19 } 20 21 cat("\n") 22 invisible(x) 23} 24