Update test_mlr_measures_MeasureSurvIntegrated.R

Author: Raphael

tests/testthat/test_mlr_measures_MeasureSurvIntegrated.R

@@ -9,8 +9,9 @@ test_that("constructor", {
 test_that("fields",{
   m = MeasureSurvGraf$new(times = 32, integrated = TRUE)
   expect_equal(m$times, 32)
-  expect_true(m$integrated)
+  expect_false(m$integrated)
   expect_silent({m$times = 34})
+  expect_silent({m$integrated = TRUE})
   expect_silent({m$times = c(34, 60)})
   expect_error({m$integrated = "D"}, "logical flag")
   expect_error({m$integrated = FALSE}, "non-integrated score")