### test-initThreshold.R ---
##----------------------------------------------------------------------
## Author: Brice Ozenne
## Created: dec 22 2017 (18:37)
## Version:
## Last-Updated: apr 6 2020 (11:50)
## By: Brice Ozenne
## Update #: 29
##----------------------------------------------------------------------
##
### Commentary:
##
### Change Log:
##----------------------------------------------------------------------
##
### Code:
if(FALSE){
library(testthat)
library(BuyseTest)
library(data.table)
}
context("Check the function initializing the thresholds")
## * settings
BuyseTest.options(check = TRUE,
keep.pairScore = TRUE,
method.inference = "none",
trace = 0)
set.seed(10)
dt <- simBuyseTest(10)
## * binary outcomes
test_that("Do not accept threshold argument for binary outcomes", {
expect_error(BuyseTest(treatment ~ bin(toxicity, threshold = 1),
data = dt,
method.inference = "none", trace = 0))
})
## * continuous outcomes
test_that("Reject non-decreasing thresholds", {
expect_error(BuyseTest(treatment ~ cont(score, threshold = 1) + cont(score, threshold = 2),
data = dt,
method.inference = "none", trace = 0))
})
test_that("convert 0 to 1e-12 - threshold",{
test <- BuyseTest(treatment ~ cont(score, threshold = 1) + cont(score),
data = dt,
method.inference = "none", trace = 0)
expect_equal(as.double(test@threshold), c(1,1e-12))
})
## * time to event outcomes
test_that("Reject non-decreasing thresholds", {
expect_error(BuyseTest(treatment ~ cont(score, threshold = 1) + cont(score, threshold = 2),
data = dt,
method.inference = "none", trace = 0))
expect_error(BuyseTest(treatment ~ tte(eventtime, status = status, threshold = 1) + tte(eventtime, censoring = status, threshold = 2),
data = dt,
method.inference = "none", trace = 0))
})
test_that("convert 0 to 1e-12 - threshold",{
test <- BuyseTest(treatment ~ cont(score, threshold = 1) + cont(score),
data = dt,
method.inference = "none", trace = 0)
expect_equal(as.double(test@threshold), c(1,1e-12))
})
##----------------------------------------------------------------------
### test-initThreshold.R ends here
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.