Test case for issue #25

xrobin · Apr 27, 2018 · 41869d8 · 41869d8
1 parent cbd356b
commit 41869d8
Showing 1 changed file with 10 additions and 0 deletions.
diff --git a/tests/testthat/test-ci.auc.R b/tests/testthat/test-ci.auc.R
@@ -32,3 +32,13 @@ test_that("ci.auc works with a formula", {
 test_that("ci.auc works with a response, predictor", {
 	expect_equal(as.numeric(ci.auc(aSAH$outcome, aSAH$ndka)), expected.ci.auc)
 })
+
+
+test_that("ci.auc works with a direction = >", {
+	expect_equal(as.numeric(ci.auc(aSAH$outcome, -aSAH$ndka)), expected.ci.auc)
+})
+
+
+test_that("ci.auc works with a direction = > and percent", {
+	expect_equal(as.numeric(ci.auc(aSAH$outcome, -aSAH$ndka, percent = TRUE)), expected.ci.auc * 100)
+})