From aa7f52ca3357cb18b1f54d5865e492dbcd7c5d2a Mon Sep 17 00:00:00 2001
From: cebarboza <c.barbozagutierrez@erasmusmc.nl>
Date: Fri, 18 Oct 2024 10:20:59 +0200
Subject: [PATCH] corrections

---
 R/testExplore.R                   |  2 +-
 tests/testthat/test-testExplore.R | 35 +++++++++++++------------------
 2 files changed, 16 insertions(+), 21 deletions(-)

diff --git a/R/testExplore.R b/R/testExplore.R
index eadbe22..53faabb 100644
--- a/R/testExplore.R
+++ b/R/testExplore.R
@@ -42,7 +42,7 @@ testExplore <- function(dataset = "iris",
                          Specificity = 0,
                          PrintSettings = TRUE,
                          PrintPerformance = TRUE,
-                         Subsumption = TRUE,
+                         Subsumption = FALSE,
                          BranchBound = TRUE,
                          Parallel = FALSE,
                          PrintCutoffSets = TRUE,
diff --git a/tests/testthat/test-testExplore.R b/tests/testthat/test-testExplore.R
index b065ac7..3d66ebb 100644
--- a/tests/testthat/test-testExplore.R
+++ b/tests/testthat/test-testExplore.R
@@ -197,30 +197,25 @@ test_that("Test continuous_4_small", {
 
 test_that("Test continuous_4", {
   
-  # cand_models_continuous_4_1 <- testExplore(dataset = "continuous_4",
-  #                                           StartRulelength = 1,
-  #                                           EndRulelength = 1,
-  #                                           BinaryReduction = FALSE)
-  # # FAIL: `actual`: 64 `expected`: 80
-  # expect_length(cand_models_continuous_4_1, 80)
+  cand_models_continuous_4_1 <- testExplore(dataset = "continuous_4",
+                                            StartRulelength = 1,
+                                            EndRulelength = 1,
+                                            BinaryReduction = FALSE)
+  expect_length(cand_models_continuous_4_1, 80)
 
-  
-  # TEST CRASHES R
-  # cand_models_continuous_4_2 <- testExplore(dataset = "continuous_4", 
-  #                                           StartRulelength = 2, 
-  #                                           EndRulelength = 2,
-  #                                           BinaryReduction = FALSE)
-  # # Expected result is 5840
-  # expect_length(cand_models_continuous_4_2, 254)
+  cand_models_continuous_4_2 <- testExplore(dataset = "continuous_4",
+                                            StartRulelength = 2,
+                                            EndRulelength = 2,
+                                            BinaryReduction = FALSE)
+  # Expected result is 5160
+  expect_length(cand_models_continuous_4_2, 5160)
 
-  
-  # TEST CRASHES R  
-  # cand_models_continuous_4_3 <- testExplore(dataset = "continuous_4", 
-  #                                           StartRulelength = 3, 
+  # cand_models_continuous_4_3 <- testExplore(dataset = "continuous_4",
+  #                                           StartRulelength = 3,
   #                                           EndRulelength = 3,
   #                                           BinaryReduction = FALSE)
-  # # Expected result is 5840
-  # expect_length(cand_models_continuous_4_3, 1134)
+  # # Expected result is 235608 
+  # expect_length(cand_models_continuous_4_3, 235608)
   
 })