add test for index PVAFF

markheckmann · May 9, 2020 · 2151cf9 · 2151cf9
1 parent 13ab80d
commit 2151cf9
Showing 1 changed file with 7 additions and 0 deletions.
diff --git a/tests/testthat/test-indexes.R b/tests/testthat/test-indexes.R
@@ -0,0 +1,7 @@
+# Test for for indexes to return correct values, e.g.
+# tested against other software
+
+test_that("PVAFF returns expected value", {
+  v <- indexPvaff(boeker)
+  expect_equal(v, 0.42007)
+})