test: Fix test-cases

tests/testthat/test-MeanAdjustedAgreement.R

@@ -16,5 +16,5 @@ test_that("MAA", {
     t = 5, num.threads = 1
   )
 
-  expect_equal(rel$var$X1[[1]], "cp1_1")
+  expect_equal(rel$related$X1[[1]], "cp1_1")
 })

tests/testthat/test-MinimalDepth.R

@@ -13,5 +13,5 @@ test_that("MD", {
 
   res.md$var
 
-  expect_equal(res.md$var[[1]], "X2")
+  expect_equal(res.md$selected[[1]], "X2")
 })

tests/testthat/test-MutualImpurityReduction.R

@@ -32,7 +32,7 @@ test_that("MFI-MIR", {
   p.mir <- MutualImpurityReductionVariableSelection(
     mir,
     method = "Permutation",
-    num.permutations = 100,
+    permutation.num = 100,
     p.t = 0.01
   )
 
@@ -74,20 +74,20 @@ test_that("MAA-MIR", {
   p.mir <- MutualImpurityReductionVariableSelection(
     mir,
     method = "Permutation",
-    perm = MeanAdjustedAgreement(
-      RandomForestSurrogates(
-        x = SMD_example_data[, -1],
-        y = SMD_example_data[, 1],
-        num.trees = 100,
-        importance = "impurity_corrected",
-        permutate = TRUE,
-        num.threads = 1,
-        seed = 1964531019, # set.seed(42);runif(1,0,.Machine$integer.max)
-        s = 10
-      ),
-      t = 5, num.threads = 1
-    ),
-    num.permutations = 100,
+    # perm = MeanAdjustedAgreement(
+    #   RandomForestSurrogates(
+    #     x = SMD_example_data[, -1],
+    #     y = SMD_example_data[, 1],
+    #     num.trees = 100,
+    #     importance = "impurity_corrected",
+    #     permutate = TRUE,
+    #     num.threads = 1,
+    #     seed = 1964531019, # set.seed(42);runif(1,0,.Machine$integer.max)
+    #     s = 10
+    #   ),
+    #   t = 5, num.threads = 1
+    # ),
+    permutation.num = 100,
     p.t = 0.01
   )
 

tests/testthat/test-SurrogateMinimalDepth.R

@@ -12,5 +12,5 @@ test_that("SMD", {
     s = 10
   ))
 
-  expect_equal(res.smd$var[[1]], "X1")
+  expect_equal(res.smd$selected[[1]], "X1")
 })