library(tibble) library(dplyr) #library(gsDesign2) devtools::load_all()
gs_power_ahr()
gs_power_ahr()
x <- gs_power_ahr(enrollRates = tibble(Stratum = "All", duration = c(2, 2, 10), rate = c(3, 6, 9)), failRates = tibble(Stratum = "All", duration = c(3, 100), failRate = log(2) / c(9, 18), hr = c(.9, .6), dropoutRate = rep(.001, 2)), analysisTimes = c(12, 24, 36), events = NULL, binding = TRUE, upper = gs_spending_bound, upar = list(sf = gsDesign::sfLDOF, total_spend = 0.025, param = NULL, timing = NULL), lower = gs_spending_bound, lpar = list(sf = gsDesign::sfLDOF, total_spend = 0.025, param = NULL, timing = NULL)) x
gs_power_ahr()
TODO
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.