From aada01c53156e670ce63c8fc7429730477ad0043 Mon Sep 17 00:00:00 2001 From: Thomas Guillerme Date: Wed, 17 Jan 2024 12:38:48 +0000 Subject: [PATCH] Update test-read.mulTree.R --- tests/testthat/test-read.mulTree.R | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/tests/testthat/test-read.mulTree.R b/tests/testthat/test-read.mulTree.R index 31cb90d..f6b5ad1 100755 --- a/tests/testthat/test-read.mulTree.R +++ b/tests/testthat/test-read.mulTree.R @@ -26,7 +26,7 @@ test_that("get.mulTree.model works", { ) # (18 elements) expect_equal( - length(get.mulTree.model("read.mulTree_testing-tree1_chain1.rda")), 20 + length(get.mulTree.model("read.mulTree_testing-tree1_chain1.rda")), 22 ) }) @@ -173,7 +173,7 @@ test_that("example works", { model, "MCMCglmm" ) expect_equal( - length(model), 20 + length(model), 22 ) # Reading only the error term and the tune for all models elements <- read.mulTree("read.mulTree_testing", extract=c("error.term", "Tune"))