add tests for grid search

Author: grlloyd

tests/testthat/test-gridsearch1d.R

@@ -0,0 +1,43 @@
+# test grid search
+test_that('grid_search',{
+  set.seed('57475')
+  # dataset
+  D=iris_dataset()
+  # iterator
+  I = grid_search_1d(param_to_optimise='number_components',
+      factor_name='Species',
+      search_values=1:4,
+      model_index=2,
+      max_min='min')*
+    kfold_xval(folds=5)*
+    (mean_centre()+PLSDA())
+  # metric
+  B=balanced_accuracy()
+  # run
+  I=run(I,D,B)
+  # calculate metric
+  expect_equal(I$metric$value,0.3)
+})
+
+# test grid search
+test_that('grid_search',{
+  set.seed('57475')
+  # dataset
+  D=iris_dataset()
+  # iterator
+  I = grid_search_1d(param_to_optimise='number_components',
+    factor_name='Species',
+    search_values=1:4,
+    model_index=2,
+    max_min='min')*
+    kfold_xval(folds=5)*
+    (mean_centre()+PLSDA())
+  # metric
+  B=balanced_accuracy()
+  # run
+  I=run(I,D,B)
+  # calculate metric
+  C=gs_line()
+  gg=chart.plot(C,I)
+  expect_true(is(gg,'ggplot'))
+})