#' @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 = "")
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.