#-----------------------------------
### Testing sfTruncated function
#-----------------------------------
testthat::test_that("Test: alpha - Checking Variable Type,
Out-of-Range", {
tx <- (0:100) / 100
param <- list(trange = c(.2, .8), sf = gsDesign::sfHSD, param = 1)
testthat::expect_error(gsDesign::sfTruncated(alpha = "abc", t = c(.1, .4), param),
info = "Checking for incorrect variable type"
)
testthat::expect_error(gsDesign::sfTruncated(alpha = 0, t = c(.1, .4), param),
info = "Checking for out-of-range variable value"
)
testthat::expect_error(gsDesign::sfTruncated(alpha = -1, t = c(.1, .4), param),
info = "Checking for out-of-range variable value"
)
})
testthat::test_that("Test: t - Checking Variable Type, Out-of-Range,
Order-of-List", {
param <- list(trange = c(.2, .8), sf = gsDesign::sfHSD, param = 1)
testthat::expect_error(gsDesign::sfTruncated(alpha = .025, t = "a", param),
info = "Checking for incorrect variable type"
)
testthat::expect_error(gsDesign::sfTruncated(alpha = .025, t = c("a", "b"), param),
info = "Checking for incorrect variable type"
)
testthat::expect_error(gsDesign::sfTruncated(alpha = .025, t = c(-.5, .75), param),
info = "Checking for out-of-range variable value"
)
testthat::expect_error(gsDesign::sfTruncated(alpha = .025, t = c(.5, -.75), param),
info = "Checking for out-of-range variable value"
)
testthat::expect_error(gsDesign::sfTruncated(alpha = .025, t = c(1, -5), param),
info = "Checking for out-of-range variable value"
)
testthat::expect_error(gsDesign::sfTruncated(alpha = .025, t = c(-1, 5), param),
info = "Checking for out-of-range variable value"
)
})
# param is numeric vector
testthat::test_that("Test: param - Checking Variable Type,
Out-of-Range, Order-of-List", {
# Testing for sfTruncated.param.trange
tx <- (0:100) / 100
param <- list(trange = "a", sf = gsDesign::sfHSD, param = 1)
testthat::expect_error(gsDesign::sfTruncated(alpha = .05, t = tx, param),
info = "Checking for incorrect variable type"
)
param <- list(trange = .3, sf = gsDesign::sfHSD, param = 1)
testthat::expect_error(gsDesign::sfTruncated(alpha = .05, t = tx, param),
info = "Checking for incorrect variable type"
)
param <- list(trange = c("a", "b"), sf = gsDesign::sfHSD, param = 1)
testthat::expect_error(gsDesign::sfTruncated(alpha = .05, t = tx, param),
info = "Checking for incorrect variable type"
)
param <- list(trange = c(0, -8), sf = gsDesign::sfHSD, param = 1)
testthat::expect_error(gsDesign::sfTruncated(alpha = .05, t = tx, param),
info = "Checking for out-of-range variable value"
)
param <- list(trange = c(.8, .5), sf = gsDesign::sfHSD, param = 1)
testthat::expect_error(gsDesign::sfTruncated(alpha = .05, t = tx, param),
info = "Checking for out-of-range variable value"
)
param <- list(trange = c(.8, .8), sf = gsDesign::sfHSD, param = 1)
testthat::expect_error(gsDesign::sfTruncated(alpha = .05, t = tx, param),
info = "Checking for out-of-range variable value"
)
param <- list(trange = c(.0, .0), sf = gsDesign::sfHSD, param = 1)
testthat::expect_error(gsDesign::sfTruncated(alpha = .05, t = tx, param),
info = "Checking for order of the list"
)
## Testing for sfTruncated.param.param <TBD>
param <- list(trange = c(.2, .8), sf = gsDesign::sfHSD, param = "a")
testthat::expect_error(gsDesign::sfTruncated(alpha = .05, t = tx, param),
info = "Checking for out-of-range variable value"
)
param <- list(trange = c(.2, .8), sf = gsDesign::sfHSD, param = c(0, 1))
testthat::expect_error(gsDesign::sfTruncated(alpha = .05, t = tx, param),
info = "Checking for out-of-range variable value"
)
param <- list(trange = c(.2, .8), sf = gsDesign::sfHSD, param = NULL)
testthat::expect_error(gsDesign::sfTruncated(alpha = .05, t = tx, param),
info = "Checking for out-of-range variable value"
)
testthat::expect_error(gsDesign::sfTruncated(alpha = .05, t = tx, param = param <- list(trange = c(.2, .8), sf = sfHSD1, param = 1)),
info = "Checking for out-of-range variable value"
)
param <- list(trange = c(.2, .8), sf = NULL, param = 1)
testthat::expect_error(gsDesign::sfTruncated(alpha = .05, t = tx, param),
info = "Checking for out-of-range variable value"
)
})
testthat::test_that("Test: Output validation for sp funtion - sfLogistic,
Source: helper.R)", {
alpha <- 0.05
tx <- c(0.167, 0.333, 0.5, 0.667, 0.833, 1)
param <- list(trange = c(.2, .8), sf = gsDesign::sfLogistic, param = c(1, 2))
spend <- gsDesign::sfTruncated(alpha, tx, param)$spend
expected_spend <- validate_sfTruncated(alpha, tx, param)
expect_equal(spend, expected_spend)
})
testthat::test_that("Test: Output validation sp funtion - sfHSD,
Source: Independent R program)", {
alpha <- 0.05
tx <- c(0.167, 0.333, 0.5, 0.667, 0.833, 1)
param <- list(trange = c(.2, .8), sf = gsDesign::sfHSD, param = 2)
spend <- gsDesign::sfTruncated(alpha, tx, param)$spend
expected_spend <- validate_sfTruncated(alpha, tx, param)
expect_equal(spend, expected_spend)
})
testthat::test_that("Test: output validation for sp funtion - sfLDOF,
Source: helper.R)", {
alpha <- 0.05
tx <- c(0.167, 0.333, 0.5, 0.667, 0.833, 1)
param <- list(trange = c(.2, .8), sf = gsDesign::sfLDOF, param = 1)
spend <- gsDesign::sfTruncated(alpha, tx, param)$spend
expected_spend <- validate_sfTruncated(alpha, tx, param)
expect_equal(spend, expected_spend)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.