R/summary.subgroup_power.R

In jasonwgriffin/metapower: Power Analysis for Meta-Analysis

#' @export

summary.subgroup_power <- function(object,...) {
  cat("\n Power Analysis for Subgroup analysis: \n\n")

  cat(" Effect Size Metric:               ", object$es_type, "\n")
  cat(" Number of Subgroups:              ", object$n_groups, "\n")
  cat(" Groups:                           ", object$group, "\n")
  cat(" Expected Effect Sizes:            ", object$effect_sizes, "\n")
  cat(" Expected Study Size:              ", object$study_size, "\n")
  cat(" Expected Number of Studies:       ", object$k, "\n\n")

  cat(" Esimated Power to detect subgroup differences \n\n")

  cat(" Fixed-Effects Model:                 ", object$subgroup_power$fixed_power_b, "\n")
  cat(" Random-Effects Model (i2 = ",round(object$i2*100,2), "%):      ", object$subgroup_power$random_power_b, "\n", sep = "")
}