From fcbe172ccb39972654cf11de254ccd2ee79b2b8e Mon Sep 17 00:00:00 2001 From: Thomas Guillerme Date: Tue, 12 Nov 2024 16:13:40 +0000 Subject: [PATCH] Update test-multi.ace.R --- tests/testthat/test-multi.ace.R | 30 +++++++++++++++--------------- 1 file changed, 15 insertions(+), 15 deletions(-) diff --git a/tests/testthat/test-multi.ace.R b/tests/testthat/test-multi.ace.R index f0c19a1e..4ffe73ea 100755 --- a/tests/testthat/test-multi.ace.R +++ b/tests/testthat/test-multi.ace.R @@ -383,21 +383,21 @@ test_that("multi.ace works", { ## Test1 - set.seed(3) - test <- capture.output(results <- multi.ace(data = matrix_complex, - tree = tree_test, - models = "ER", - threshold = FALSE, - special.tokens = c("weird" = "%"), - special.behaviours = list(weirdtoken = function(x,y) return(c(1,2))), - brlen.multiplier = rnorm(10), - verbose = TRUE, - parallel = FALSE, - output = "matrix", - estimation.details = c("loglikelihood", "transition_matrix"))) - expect_equal(test, - c("Preparing the data:.....Done." , - "Running ancestral states estimations:....................Done.")) + # set.seed(3) + # test <- capture.output(results <- multi.ace(data = matrix_complex, + # tree = tree_test, + # models = "ER", + # threshold = FALSE, + # special.tokens = c("weird" = "%"), + # special.behaviours = list(weirdtoken = function(x,y) return(c(1,2))), + # brlen.multiplier = rnorm(10), + # verbose = TRUE, + # parallel = FALSE, + # output = "matrix", + # estimation.details = c("loglikelihood", "transition_matrix"))) + # expect_equal(test, + # c("Preparing the data:.....Done." , + # "Running ancestral states estimations:....................Done.")) # set.seed(3) # test <- capture.output(results <- multi.ace(data = matrix_complex,