R/print.varbin.R

In aods3: Analysis of Overdispersed Data using S3 Methods

print.varbin <- function(x, ...) {
  tab <- x$tab
  nam <- rownames(tab)
  tab$varmu <- sqrt(tab$varmu)
  names(tab)[2] <- "se"
  feat <- x$features
  cat("N = ", feat["N"], " clusters, n = ", feat["n"], " subjects, m = ", feat["m"],
      " cases.\n", sep = "")
  cat("\nProportion:\n")
  List <- lapply(tab, function(x) {
    ifelse(is.na(x), "", format(round(x, digits = 4), nsmall = 3))})
  summ <- as.data.frame(t(do.call("rbind", List)))
  rownames(summ) <- nam
  print(summ)
  
  cat("\nalpha = ", x$alpha, " for the CIs; R = ", length(x$muboot),
      " samples for the bootstrap estimates.\n", sep = "")
  invisible(tab)
}