#-----------------------------------
### Testing sfBetaDist function
#-----------------------------------
testthat::test_that("Test: alpha - Checking Variable Type, Out-of-Range,
Order-of-List", {
testthat::expect_error(gsDesign::sfBetaDist(alpha = "abc", t = c(.1, .4),
param = c(0.1, 0.2)),
info = "Checking for incorrect variable type")
testthat::expect_error(gsDesign::sfBetaDist(alpha = 0, t = c(.1, .4),
param = c(0.1, 0.2)),
info = "Checking for out-of-range variable value")
testthat::expect_error(gsDesign::sfBetaDist(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::sfBetaDist(alpha = .025,t = "a",
param = c(0.1, 0.2)),
info = "Checking for incorrect variable type")
testthat::expect_error(gsDesign::sfBetaDist(alpha = .025,t = c("a","b"),
param = c(0.1, 0.2)),
info = "Checking for incorrect variable type")
testthat::expect_error(gsDesign::sfBetaDist(alpha = .025,t = c(-.5, .75),
param = c(0.1, 0.2)),
info = "Checking for out-of-range variable value")
testthat::expect_error(gsDesign::sfBetaDist(alpha = .025,t = c(.5, -.75),
param = c(0.1, 0.2)),
info = "Checking for out-of-range variable value"
)
testthat::expect_error(gsDesign::sfBetaDist(alpha = .025, t = c(1, -5),
param = c(0.1, 0.2)),
info = "Checking for out-of-range variable value")
testthat::expect_error(gsDesign::sfBetaDist(alpha = .025, t = c(-1, 5),
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::sfBetaDist(alpha = .025, t = c(.1, .4),
param = c("a", "b")),
info = "Checking for incorrect variable type")
testthat::expect_error(gsDesign::sfBetaDist(alpha = .025, t = c(.1, .4),
param = "a"),
info = "Checking for incorrect variable type")
testthat::expect_error(gsDesign::sfBetaDist(alpha = .025, t = c(.1, .4),
param = 4),
info = "Checking for incorrect variable type"
)
testthat::expect_error(gsDesign::sfBetaDist(alpha = .025, t = c(.1, .4),
param = c(.2, .55, .75)),
info = "Checking for length of the variable")
testthat::expect_error(gsDesign::sfBetaDist(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::sfBetaDist(alpha=.025,t=c(.1, .4),param=c(1,0)),
info = "Checking for out-of-range of the variable")
testthat::expect_error(gsDesign::sfBetaDist(alpha=.025,t=c(.1, .4),param=c(1,-5)),
info = "Checking for out-of-range of the variable")
testthat::expect_error(gsDesign::sfBetaDist(alpha=.025,t=c(.1, .4),param=c(-3,-1)),
info = "Checking for out-of-range of the variable")
testthat::expect_error(gsDesign::sfBetaDist(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::sfBetaDist(alpha=.025,t=c(.1, .4),
param=c(0.2,NULL,0.05,.4)),
info = "Checking for out-of-range of the variable"
)
testthat::expect_error(gsDesign::sfBetaDist(alpha=.025,t=c(.1, .4),
param=c(0.1,0.01,0.1,0.4)),
info = "Checking for order of the variable"
)
testthat::expect_error(gsDesign::sfBetaDist(alpha=.025,t=c(.1, .4),
param=c(0.01,0.1,0.4,0.1)),
info = "Checking for order of the variable"
)
testthat::expect_error(gsDesign::sfBetaDist(alpha=.025,t=c(.1, .4),
param=c(0.01,-0.1,0.1,0.4)),
info = "Checking for order of the variable"
)
testthat::expect_error(gsDesign::sfBetaDist(alpha=.025,t=c(.1, .1),
param=c(0.01,0.1,0.1,0.1)),
info = "Checking for order of the variable"
)
testthat::expect_error(gsDesign::sfBetaDist(alpha=.025,t=c(.1, .4),
param=c(0.01,4,0.1,0.4)),
info = "Checking for order of the variable"
)
})
testthat::test_that("Test: output validation for param of length 2 :
Source: helper.R)", {
t <- c(.01, .05, .1, .25, .5,1)
param<-c(0.25,0.1)
alpha<-0.025
sp <- gsDesign::sfBetaDist(alpha, t, param)$spend
expected_sp <- validate_sfBetaDist(alpha, t, param)
expect_equal(sp,expected_sp)
})
testthat::test_that("Test: for param of length 2, t of length 5 :
Source: helper.R)", {
t <- c(.01, .05, .1, .25, .5)
param<-c(0.25,0.1)
alpha<-0.025
sp <- gsDesign::sfBetaDist(alpha, t, param)$spend
expected_sp <- validate_sfBetaDist(alpha, t, param)
expect_equal(sp,expected_sp)
})
testthat::test_that("Test: for param of length 2, t of length 7 :
Source: helper.R)", {
t <- c(.01, .05, .1, .25, .5, 1, 1.02)
param<-c(0.25,0.1)
alpha<-0.025
sp <- gsDesign::sfBetaDist(alpha, t, param)$spend
expected_sp <- validate_sfBetaDist(alpha, t, param)
expect_equal(sp,expected_sp)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.