add tests for permutation test

Author: grlloyd

tests/testthat/test-permutation_test.R

@@ -0,0 +1,85 @@
+# test permutation test class
+test_that('permutation test',{
+  set.seed('57475')
+  # dataset
+  D=iris_dataset()
+  # iterator
+  I = permutation_test(number_of_permutations=20)*(mean_centre()+PLSDA())
+  # metric
+  B=balanced_accuracy()
+  # run
+  I=run(I,D,B)
+  # calculate metric
+  B=calculate(B,Yhat=output.value(I,'results.unpermuted')$predicted,
+    Y=output.value(I,'results.unpermuted')$actual)
+  expect_equal(value(B),0.50775)
+})
+
+# permutation test box plot
+test_that('permutation test boxplot',{
+  set.seed('57475')
+  # dataset
+  D=iris_dataset()
+  # iterator
+  I = permutation_test(number_of_permutations=10)*kfold_xval(folds=3)*(mean_centre()+PLSDA())
+  # metric
+  B=balanced_accuracy()
+  # run
+  I=run(I,D,B)
+  # chart
+  C=permutation_test.boxplot()
+  gg=chart.plot(C,I)
+  expect_true(is(gg,'ggplot'))
+})
+
+# permutation test hist plot
+test_that('permutation test hist plot',{
+  set.seed('57475')
+  # dataset
+  D=iris_dataset()
+  # iterator
+  I = permutation_test(number_of_permutations=10)*kfold_xval(folds=3)*(mean_centre()+PLSDA())
+  # metric
+  B=balanced_accuracy()
+  # run
+  I=run(I,D,B)
+  # chart
+  C=permutation_test.hist()
+  gg=chart.plot(C,I)
+  expect_true(is(gg,'ggplot'))
+})
+
+# permutation test scatter plot
+test_that('permutation scatter hist plot',{
+  set.seed('57475')
+  # dataset
+  D=iris_dataset()
+  # iterator
+  I = permutation_test(number_of_permutations=10)*kfold_xval(folds=3)*(mean_centre()+PLSDA())
+  # metric
+  B=balanced_accuracy()
+  # run
+  I=run(I,D,B)
+  # chart
+  C=permutation_test.scatter()
+  gg=chart.plot(C,I)
+  expect_true(is(gg,'ggplot'))
+})
+
+# permutation test violin plot
+test_that('permutation violin hist plot',{
+  set.seed('57475')
+  # dataset
+  D=iris_dataset()
+  # iterator
+  I = permutation_test(number_of_permutations=10)*kfold_xval(folds=3)*(mean_centre()+PLSDA())
+  # metric
+  B=balanced_accuracy()
+  # run
+  I=run(I,D,B)
+  # chart
+  C=permutation_test.violin()
+  gg=chart.plot(C,I)
+  expect_true(is(gg,'ggplot'))
+})
+