tests/testthat/test-sequentialPValue.R

In gsDesign: Group Sequential Design

testthat::test_that("sequential p-value not computed correctly",{
  x <- gsDesign(n.fix=100,k=4,timing=c(.4,.7,.85))
  interval <- c(.001,.999)
  # Check numbers correctly generated when end of interval is appropriate at IA
  seqp <- sequentialPValue(gsD=gsDesign(n.fix=100,k=4,timing=c(.4,.7,.85)),Z=5,n.I=44,interval=c(.001,.999))
  expect_equal(seqp,.001)
  seqp <-sequentialPValue(gsD=x,Z=.1,n.I=44,interval=interval)
  expect_equal(seqp,interval[2])
  seqp <- sequentialPValue(gsD=x,Z=c(0,5),n.I=c(44,75),interval=interval)
  expect_equal(seqp,interval[1])
  seqp <- sequentialPValue(gsD=x,Z=c(.1,.1),n.I=c(44,75),interval=c(.001,.999))
  expect_equal(seqp,interval[2])
  # check that bounds for sequential p-value are just reached at interim
  n.I <- ceiling(x$n.I+5)
  Z <- rep(1,4)
  seqp <- sequentialPValue(gsD=x,Z=Z,n.I=n.I)
  expect_equal(min(gsDesign(alpha=seqp,k=x$k,maxn.IPlan=max(x$n.I),n.I=n.I,
                        sfu=x$upper$sf,sfupar=x$upper$param,test.type=1)$upper$bound-Z),
               0)
  # check that bounds for sequential p-value are just reached at final
  Z <- c(rep(0,3),2.3)
  seqp <- sequentialPValue(gsD=x,Z=Z,n.I=n.I)
  expect_equal(min(gsDesign(alpha=seqp,k=x$k,maxn.IPlan=max(x$n.I),n.I=n.I,
                            sfu=x$upper$sf,sfupar=x$upper$param,test.type=1)$upper$bound-Z),
               0,tolerance=.00001)
})
testthat::test_that("default n.I not used",{
  x <- gsDesign()
  # check that default n.I used when missing
  seqp1 <- sequentialPValue(gsD=x,Z=c(.1,.1,1.5),n.I=x$n.I,interval=c(.001,.999))
  seqp <- sequentialPValue(gsD=x,Z=c(.1,.1,1.5),interval=c(.001,.999))
  expect_equal(seqp,seqp1)
})