## ----setup, include = FALSE---------------------------------------------------
knitr::opts_chunk$set(collapse = TRUE, comment = "#>")
library(ggpower)

## ----a_priori-----------------------------------------------------------------
power_compute("t_two_sample", "a_priori", d = 0.5, alpha = 0.05,
              power = 0.8, tails = "two", allocation_ratio = 1)

## ----post_hoc-----------------------------------------------------------------
power_compute("t_one_sample", "post_hoc", d = 0.625, n = 30,
              alpha = 0.05, tails = "one")

## ----criterion----------------------------------------------------------------
power_compute("t_one_sample", "criterion", d = 0.5, n = 40,
              power = 0.8, tails = "two")

## ----sensitivity--------------------------------------------------------------
power_compute("f_mreg_omnibus", "sensitivity", alpha = 0.05, power = 0.8,
              total_n = 100, predictors = 3)

## ----compromise---------------------------------------------------------------
power_compute("t_one_sample", "compromise", d = 0.5, n = 40, q = 1, tails = "two")

## ----d------------------------------------------------------------------------
effect_size_d(mean_h1 = 15, mean_h0 = 10, sd = 8)

## ----f2-----------------------------------------------------------------------
effect_size_f2(r2 = 0.1)

## ----w------------------------------------------------------------------------
effect_size_w(p0 = c(0.25, 0.25, 0.25, 0.25), p1 = c(0.4, 0.3, 0.2, 0.1))

## ----calc---------------------------------------------------------------------
ggpower_calculator("zinv(0.975)")