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


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