Defines functions print.mpower

#' @export

print.mpower <- function(x,...) {
    cat("\n Power Analysis for Meta-analysis \n\n")

    cat(" Effect Size Metric:               ", x$es_type, "\n")
    cat(" Expected Effect Size:             ", x$effect_size, "\n")
    cat(" Expected Study Size:              ", x$study_size, "\n")
    cat(" Expected Number of Studies:       ", x$k, "\n\n")

    cat(" Estimated Power: Mean Effect Size \n\n")

    cat(" Fixed-Effects Model               ", x$power$fixed_power, "\n")
    cat(" Random-Effects Model (i2 = ",round(x$i2*100,2), "%):   ", x$power$random_power, "\n", sep = "")


Try the metapower package in your browser

Any scripts or data that you put into this service are public.

metapower documentation built on Feb. 8, 2021, 5:07 p.m.