## ----include = FALSE----------------------------------------------------------
knitr::opts_chunk$set(
  fig.dim = c(6, 5),
  fig.align = "center"
)

## ----setup--------------------------------------------------------------------
library(Keng)

## -----------------------------------------------------------------------------
power_r(r = 0.2)
plot(power_r(r = 0.2))

## -----------------------------------------------------------------------------
power_lm(PRE = 0.04)

## -----------------------------------------------------------------------------
power_lm(PRE = 0.04, PC = 2, PA = 3)

## -----------------------------------------------------------------------------
power_lm(PRE = 0.04, PC = 3, PA = 4)

## -----------------------------------------------------------------------------
power_lm(PRE = 0.13, PC = 5, PA = 9)

## -----------------------------------------------------------------------------
power_lm(PRE = 0.04, PC = 5, PA = 6)