tests/testthat/test_spending.R
In tobiasmuetze/gscounts: Group Sequential Designs with Negative Binomial Outcomes
context("Spending functions")
test_that("Pocock spending function matches gsdesign",
{expect_equal(pocock(t = c(0.4, 0.75, 1), sig_level = 0.05),
gsDesign::sfLDPocock(alpha = 0.05, t = c(0.4, 0.75, 1))$spend)})
test_that("OBF spending function matches gsdesign",
{expect_equal(obrien(t = c(0.1, 0.4, 0.75, 1), sig_level = 0.1),
gsDesign::sfLDOF(alpha = 0.1, t = c(0.1, 0.4, 0.75, 1))$spend)})
tobiasmuetze/gscounts documentation built on Sept. 10, 2023, 7:30 a.m.
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
context("Spending functions")
test_that("Pocock spending function matches gsdesign",
{expect_equal(pocock(t = c(0.4, 0.75, 1), sig_level = 0.05),
gsDesign::sfLDPocock(alpha = 0.05, t = c(0.4, 0.75, 1))$spend)})
test_that("OBF spending function matches gsdesign",
{expect_equal(obrien(t = c(0.1, 0.4, 0.75, 1), sig_level = 0.1),
gsDesign::sfLDOF(alpha = 0.1, t = c(0.1, 0.4, 0.75, 1))$spend)})
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
Embedding an R snippet on your website
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.