test_that("rpwexpinvRcpp handles 0 fail_rate for final period", {
# 0 failure rate for last period
s <- simtrial::rpwexpinvRcpp(n=100,
fail_rate=tibble(duration=c(0, 2),rate=c(5, 0)))
# expect all failure times = Inf if length of first time period is 0
testthat::expect_equal(min(s),Inf)
})
testthat::test_that("rpwexpinvRcpp handles 0 fail rate properly for one period",{
# 0 failure rate
s <- simtrial::rpwexpinvRcpp(n=100,
fail_rate=tibble(duration=c(1),rate=c(0)))
# expect Inf fail time
testthat::expect_equal(mean(is.infinite(s)),1)
})
testthat::test_that("rpwexpinvRcpp handles 0 fail rate properly for multiple periods",{
# 0 failure rate for 1st period (with duration of 1 time unit)
s <- simtrial::rpwexpinvRcpp(n=100,
fail_rate=tibble(duration=c(1, 2),rate=c(0, 5)))
# expect all failure times > = 1 (no events in 0 failure rate period)
testthat::expect_equal(mean(s>=1),1)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.