# Tests for sequentialPvalue routine
# check that inappropriate inputs produce error
testthat::test_that("inappropriate input not flagged with error",{
x <- gsDesign()
expect_error(sequentialPValue(gsD=5)) # input not group sequential design
expect_error(sequentialPValue(gsD=x,n.I=1:5,Z=1:5)) # too many large values in n.I compared to max(gsD$n.I)
expect_error(sequentialPValue(gsD=x,n.I=3:1,Z=3:1)) # n.I not in order
expect_error(sequentialPValue(gsD=gsDesign(test.type=2))) # bad test.type
expect_error(sequentialPValue(gsD=gsDesign(test.type=3))) # bad test.type
expect_error(sequentialPValue(gsD=gsDesign(test.type=5))) # bad test.type
expect_error(sequentialPValue(gsD=x,n.I="bad")) # non-numeric n.I
expect_error(sequentialPValue(gsD=x,n.I=c(.1,.1),Z=c(.4,1.5))) # non-increasing n.I
expect_error(sequentialPValue(gsD=x,n.I=1,Z="bad")) # non-numeric Z
expect_error(sequentialPValue(gsD=x,n.I=1,Z=2,usTime="bad")) # non-numeric usTime
expect_error(sequentialPValue(gsD=x,n.I=1,Z=2,interval=c(0,.999))) # bad interval
expect_error(sequentialPValue(gsD=x,n.I=1,Z=2,interval=c(0.01,1))) # bad interval
expect_error(sequentialPValue(gsD=x,n.I=1,Z=2,interval=c(0,.5,.999))) # bad interval
expect_error(sequentialPValue(gsD=x,n.I=(1:3)/3,Z=3:1,usTime=1:3)) #bad usTime
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.