#-----------------------------------
# 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)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.