Resolved TODO, suppressed output on test (#13)

ocbe-uio · Jun 20, 2024 · 03d0aec · 03d0aec
1 parent 52f3c4d
commit 03d0aec
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/tests/testthat/test-general.R b/tests/testthat/test-general.R
@@ -26,10 +26,10 @@ set.seed(123)
 fit <- BayesSurvive(
   survObj = dataset, model.type = "Pooled", MRF.G = TRUE,
   hyperpar = hyperparPooled, initial = initial,
-  nIter = 50, burnin = 0, # TODO: speed up once all tests are written
+  nIter = 50, burnin = 0,
   verbose = FALSE
 )
-pred_1 <- predict(fit, survObj.new = dataset, times = 8.5)
+pred_1 <- predict(fit, survObj.new = dataset, times = 8.5, verbose = FALSE)
 pred_2 <- predict(fit, survObj.new = dataset, type = c("cumhazard", "survival"))
 
 test_that("fit has properly class and length", {