diff --git a/tests/testthat/test-cpp_translation.R b/tests/testthat/test-cpp_translation.R index 1146fea..e236253 100644 --- a/tests/testthat/test-cpp_translation.R +++ b/tests/testthat/test-cpp_translation.R @@ -40,7 +40,7 @@ hyperPooled_2S$G <- Matrix::bdiag(simData$G, simData$G) set.seed(715074) BayesSurvive_wrap <- function( data, initial, hyper, model = "Pooled", use_cpp = FALSE, n_iter = 5, - MRF_G = TRUE, verbose = TRUE + MRF_G = TRUE, verbose = FALSE ) { if (!MRF_G) { data <- list(data)