Update test-methodCCLS.R

Allow 'test_sl1' to be available outside of the 'expect_warning' call
ecpolley · Mar 9, 2018 · 366fcc5 · 366fcc5
1 parent 51336b7
commit 366fcc5
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/tests/testthat/test-methodCCLS.R b/tests/testthat/test-methodCCLS.R
@@ -11,7 +11,7 @@ simY <- 10*simX$a + rnorm(n)
 test_that("Function works with/without duplicates.",{
   # should throw a warning for duplicated columns
   set.seed(1234)
-  expect_warning(test_sl1 <- SuperLearner(Y = simY, X = simX,
+  expect_warning(test_sl1 <<- SuperLearner(Y = simY, X = simX,
                           method = "method.CC_LS",
                           SL.library = c("SL.glm","SL.glm","SL.mean")))
   # second coefficient should be 0