Skip to content

Commit fe721f6

Browse files
authored
remove test (#970)
these aspects are already covered by the other test
1 parent 97c0e43 commit fe721f6

File tree

1 file changed

+0
-15
lines changed

1 file changed

+0
-15
lines changed

tests/testthat/test-survival-censoring-weights.R

-15
Original file line numberDiff line numberDiff line change
@@ -22,21 +22,6 @@ test_that("probability truncation via trunc_probs()", {
2222
)
2323
})
2424

25-
test_that("trunc_probs()", {
26-
probs_1 <- (0:10) / 20
27-
probs_2 <- probs_1
28-
probs_2[3] <- NA_real_
29-
30-
expect_equal(parsnip:::trunc_probs(probs_1, 0), probs_1)
31-
expect_equal(parsnip:::trunc_probs(probs_2, 0), probs_2)
32-
expect_equal(
33-
parsnip:::trunc_probs(probs_1, 0.1),
34-
ifelse(probs_1 < 0.05 / 2, 0.05 / 2, probs_1)
35-
)
36-
expect_equal(min(parsnip:::trunc_probs(probs_2, 0.1), na.rm = TRUE), 0.05 / 2)
37-
expect_equal(is.na(parsnip:::trunc_probs(probs_2, 0.1)),is.na(probs_2))
38-
})
39-
4025
test_that(".filter_eval_time()", {
4126
times_basic <- 0:10
4227
expect_equal(

0 commit comments

Comments
 (0)