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

## ----setup--------------------------------------------------------------------
library(PowerTOST) # attach the library

## ----example1-----------------------------------------------------------------
pa.ABE(CV = 0.20, theta0 = 0.92)

## ----example2-----------------------------------------------------------------
pa.scABE(CV = 0.55)

## ----example3-----------------------------------------------------------------
pa.scABE(CV = 0.40, design = "2x2x4")

## ----example4-----------------------------------------------------------------
pa.scABE(CV = 0.55, regulator = "HC")

## ----example5-----------------------------------------------------------------
pa.scABE(CV = 0.55, regulator = "GCC")

## ----example6-----------------------------------------------------------------
pa.scABE(CV = 0.55, regulator = "FDA")

## ----example7-----------------------------------------------------------------
pa.NTID(CV = 0.125)