fix typo

Author: szcf-weiya

tests/testthat/test-SplitClusterTest.R

@@ -4,13 +4,13 @@ test_that("ds", {
   x[1:40,1:10] = x[1:40, 1:10] + 10
   res = ds(x, q = 0.1)
   acc = calc_acc(res$sel_set, 1:10)
-  expect_lte(acc$fdr, 0.1)
-  expect_gte(acc$power, 0.9)
+  expect_lte(acc[["fdr"]], 0.1)
+  expect_gte(acc[["power"]], 0.9)
 
   res2 = mds(x, q = 0.1, M = 10)
   acc2 = calc_acc(res2, 1:10)
-  expect_lte(acc2$fdr, 0.1)
-  expect_gte(acc2$power, 0.9)
+  expect_lte(acc2[["fdr"]], 0.1)
+  expect_gte(acc2[["power"]], 0.9)
 })
 
 test_that("calc_tau", {