Issue #25 also hits var

xrobin · Apr 27, 2018 · d51d4b1 · d51d4b1
1 parent 41869d8
commit d51d4b1
Showing 1 changed file with 6 additions and 0 deletions.
diff --git a/tests/testthat/test-var.R b/tests/testthat/test-var.R
@@ -28,3 +28,9 @@ test_that("var works with auc and percent", {
 	expect_equal(var(auc(r.ndka.percent)), 31.908105493913)
 	expect_equal(var(auc(r.s100b.percent)), 26.6868245717244)
 })
+
+
+test_that("var with delong and percent works", {
+	expect_equal(var(roc(aSAH$outcome, -aSAH$ndka, percent=TRUE)), 31.908105493913)
+	expect_equal(var(roc(aSAH$outcome, -aSAH$s100b, percent=TRUE)), 26.6868245717244)
+})