## ----example1-----------------------------------------------------------------
library(ssutil)
power_single_rate(100, 0.95)


## ----example2-----------------------------------------------------------------
power_single_rate(30, c(0.95, 0.90, 0.8))

## ----example3-----------------------------------------------------------------
power_single_rate(c(500, 1500), 0.95)

## ----example4-----------------------------------------------------------------
power_events_rate(c(500, 1500), c(1 / 10, 1 / 100, 1 / 1000, 1 / 10000, 1 / 1e5), c(1, 2, 3))