From 03d0aec30ce43ef082004ba93785abd77c424fce Mon Sep 17 00:00:00 2001 From: Waldir Leoncio Date: Thu, 20 Jun 2024 15:33:41 +0200 Subject: [PATCH] Resolved TODO, suppressed output on test (#13) --- tests/testthat/test-general.R | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/tests/testthat/test-general.R b/tests/testthat/test-general.R index b6309e3..02ae551 100644 --- 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", {