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

## ----one----------------------------------------------------------------------
power_compute("t_one_sample", "a_priori", d = 0.625, alpha = 0.05,
              power = 0.95, tails = "one")

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

## ----paired-------------------------------------------------------------------
power_compute("t_paired", "post_hoc", d = 0.42, n = 50, alpha = 0.05)

## ----pb-----------------------------------------------------------------------
power_compute("t_point_biserial", "a_priori", rho = 0.3, alpha = 0.05, power = 0.8)

## ----slope--------------------------------------------------------------------
power_compute("t_linear_regression", "post_hoc", slope_h1 = -0.0667,
              slope_h0 = 0, sd_x = 7.5, sd_y = 4, n = 100)

## ----slope2-------------------------------------------------------------------
power_compute("t_linear_regression_two_groups", "a_priori", delta_slope = 0.1,
              sd_x1 = 1, sd_x2 = 1, residual_sd = 1, alpha = 0.05, power = 0.8)

## ----generic------------------------------------------------------------------
power_compute("t_generic", "post_hoc", ncp = 3, df = 29, alpha = 0.05, tails = "two")