tests/testthat/test-independent-test-sfLogistic.R

In keaven/gsDesign: Group Sequential Design

#-----------------------------------
# Test sfLogistic function
#-----------------------------------

testthat::test_that("Test: alpha - Checking Variable Type,  
                    Out-of-Range,  Order-of-List",  {
  testthat::expect_error(gsDesign::sfLogistic(alpha = "abc", t = c(.1,  .4), 
                                              param = c(0.1, 0.2)), 
                         info = "Checking for incorrect variable type"
  )
  
  testthat::expect_error(gsDesign::sfLogistic(alpha = 0, t = c(.1,  .4), 
                                              param = c(0.1, 0.2)), 
                         info = "Checking for out-of-range variable value"
  )
    
  testthat::expect_error(gsDesign::sfLogistic(alpha = -1, t = c(.1,  .4), 
                                              param = c(0.1, 0.2)), 
                         info = "Checking for out-of-range variable value"
  )
 
})


testthat::test_that("Test: t - Checking Variable Type,  Out-of-Range,  
                    Order-of-List",  {

   testthat::expect_error(gsDesign::sfLogistic(alpha = .2, t = c("a", "b"), 
                                              param = c(0.1, 0.2)), 
                         info = "Checking for incorrect variable type"
  )
  
   
  testthat::expect_error(gsDesign::sfLogistic(alpha = .2, t = c(-.5, .75), 
                                              param = c(0.1, 0.2)), 
                         info = "Checking for out-of-range variable value"
  )
  
  testthat::expect_error(gsDesign::sfLogistic(alpha = .2, t = c(-.75, 1), 
                                              param = c(0.1, 0.2)), 
                         info = "Checking for out-of-range variable value"
  )
  
   
  testthat::expect_error(gsDesign::sfLogistic(alpha = .2, t = c(-1, -6), 
                                              param = c(0.1, 0.2)), 
                         info = "Checking for out-of-range variable value"
  )
  
 
})



testthat::test_that("Test: param - Checking Variable Type,  
                    Out-of-Range,  Order-of-List",  {
   
  testthat::expect_error(gsDesign::sfLogistic(alpha = .025, t = c(.1,  .4), 
                                              param = c("a", "b")),  
                         info = "Checking for incorrect variable type"
  )
  
   
  testthat::expect_error(gsDesign::sfLogistic(alpha = .025, t = c(.1,  .4), 
                                              param = 4),  
                         info = "Checking for incorrect variable type"
  )  
  
  testthat::expect_error(gsDesign::sfLogistic(alpha = .025, t = c(.1,  .4), 
                                              param = .4),  
                         info = "Checking for incorrect variable type"
  ) 
  
  testthat::expect_error(gsDesign::sfLogistic(alpha = .025, t = c(.1,  .4), 
                                              param = c(.4)),  
                         info = "Checking for length of the variable"
  )
  
  testthat::expect_error(gsDesign::sfLogistic(alpha = .025, t = c(.1,  .4), 
                                              param = c(.2, .55, .75)),  
                         info = "Checking for length of the variable"
  )
  
  testthat::expect_error(gsDesign::sfLogistic(alpha = .025, t = c(.1,  .4), 
                                              param = c(.2, .45, .55, 0.75, 0.85)),  
                         info = "Checking for length of the variable"
  )
  
  testthat::expect_error(gsDesign::sfLogistic(alpha = .025, t = c(.1,  .4), 
                                              param = c(1, 0)),  
                         info = "Checking for out-of-range of the variable"
  )
  
  testthat::expect_error(gsDesign::sfLogistic(alpha = .025, t = c(.1,  .4), 
                                              param = c(1, -5)),  
                         info = "Checking for out-of-range of the variable"
  )
  
  testthat::expect_error(gsDesign::sfLogistic(alpha = .025, t = c(.1,  .4), 
                                              param = c(-3, -1)),   
                         info = "Checking for out-of-range of the variable"
  )
  
   
  testthat::expect_error(gsDesign::sfLogistic(alpha = .025, t = c(.1,  .4), 
                                              param = c(NULL, 0.2, 0.05, .4)),  
                         info = "Checking for out-of-range of the variable"
  )
  
  testthat::expect_error(gsDesign::sfLogistic(alpha = .025, t = c(.2, .5, .7, 1), 
                                              param = c(NULL, 0.2, 0.05, .4)),  
                         info = "Checking for out-of-range of the variable"
  )
  
  testthat::expect_error(gsDesign::sfLogistic(alpha = .025, t = c(.1,  .4), 
                                              param = c(0.2, 0.05, NULL, .4)),  
                         info = "Checking for out-of-range of the variable"
  )
  
  testthat::expect_error(gsDesign::sfLogistic(alpha = .025, t = c(.1,  .4), 
                                              param = c(0.1, 0.01, 0.1, 0.4)),  
                         info = "Checking for out-of-range of the variable"
  )
  
  testthat::expect_error(gsDesign::sfLogistic(alpha = .025, t = c(.1,  .4), 
                                              param = c(0.1, 0.01, 100, 0.4)),  
                         info = "Checking for out-of-range of the variable"
  )
  
  testthat::expect_error(gsDesign::sfLogistic(alpha = .025, t = c(.1,  .4), 
                                              param = c(0.01, 0.1, 0.4, 0.1)),  
                         info = "Checking for out-of-range of the variable"
  )
  
  testthat::expect_error(gsDesign::sfLogistic(alpha = .025, t = c(.1,  .4), 
                                              param = c(0.01, -0.1, 0.1, 0.4)),  
                         info = "Checking for out-of-range of the variable"
  )
  
  testthat::expect_error(gsDesign::sfLogistic(alpha = .025, t = c(.1,  .4), 
                                              param = c(0.01, 0.1, -0.1, 0.4)),  
                         info = "Checking for out-of-range of the variable"
  )
  
  testthat::expect_error(gsDesign::sfLogistic(alpha = .025, t = c(.1,  .4), 
                                              param = c(0.01, 0.1, 0.1, 4)),  
                         info = "Checking for out-of-range of the variable"
  )
  
})

 
testthat::test_that("Test: output validation param of length 2,  
                    Source: helper.R",  {
  
  t <- c(0.33, 0.67, 1)
  param<-c(0, 1)
  alpha<-.025
  
  sp <- gsDesign::sfLogistic(alpha, t, param)$spend
  expect_sp <- validate_sfLogistic(alpha, t, param)
  expect_equal(sp, expect_sp)
})

testthat::test_that("Test: output validation param of length 2,  t of length 4,  
                    Source: helper.R",  {
  
  t <- c(0.2, 0.5, 0.7, 1)
  param<-c(1, 1)
  alpha<-.025
    
  sp <- gsDesign::sfLogistic(alpha, t, param)$spend
  expect_sp <- validate_sfLogistic(alpha, t, param)
  expect_equal(sp, expect_sp)
})

  
testthat::test_that("Test: output validation param of length 4,  
                    Source: helper.R",  {

  t <- c(0.33, 0.67, 1)
  param<-c(0.01, .1, .1, 0.4)
  alpha<-0.05

  sp <- gsDesign::sfLogistic(alpha, t, param)$spend
  expect_sp <- validate_sfLogistic(alpha, t, param)
  expect_equal(sp, expect_sp)

})