From 9e9ba02cb874b5feecc1a531d1251e5859c78d6e Mon Sep 17 00:00:00 2001 From: TGuillerme Date: Fri, 22 Jan 2016 13:21:15 +0000 Subject: [PATCH] speed up testing --- DESCRIPTION | 2 +- tests/testthat/test-mulTree.R | 4 ++-- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/DESCRIPTION b/DESCRIPTION index 958428c..117add8 100644 --- a/DESCRIPTION +++ b/DESCRIPTION @@ -1,5 +1,5 @@ Package: mulTree -Title: Performs MCMCglmm On Multiple Phylogenetic Trees. +Title: Performs MCMCglmm on Multiple Phylogenetic Trees. Author: Thomas Guillerme & Kevin Healy Maintainer: Thomas Guillerme Version: 1.2 diff --git a/tests/testthat/test-mulTree.R b/tests/testthat/test-mulTree.R index 5c81ff0..9c8cfc8 100644 --- a/tests/testthat/test-mulTree.R +++ b/tests/testthat/test-mulTree.R @@ -97,7 +97,7 @@ test_that("Quick mulTree example works", { #First example works set.seed(1) - mulTree_test1 <- system.time(mulTree(mulTree.data, formula = var1 ~ var2, parameters = c(10000, 10, 1000), chains = 2, prior = priors, output = "mulTree_testing", verbose = FALSE)) + mulTree_test1 <- system.time(mulTree(mulTree.data, formula = var1 ~ var2, parameters = c(100, 10, 10), chains = 2, prior = priors, output = "mulTree_testing", verbose = FALSE)) #Generates 9 files expect_equal(length(list.files(pattern = "mulTree_testing")), 9) expect_equal(length(list.files(pattern = "mulTree_testing-tree1_chain")), 2) @@ -111,7 +111,7 @@ test_that("Quick mulTree example works", { #Second example (parallel) works set.seed(1) - mulTree_test2 <- system.time(mulTree(mulTree.data, formula = var1 ~ var2, parameters = c(10000, 10, 1000), chains = 2, prior = priors, output = "mulTree_testing", parallel = "SOCK", verbose = FALSE)) + mulTree_test2 <- system.time(mulTree(mulTree.data, formula = var1 ~ var2, parameters = c(100, 10, 10), chains = 2, prior = priors, output = "mulTree_testing", parallel = "SOCK", verbose = FALSE)) #Generates 9 files expect_equal(length(list.files(pattern = "mulTree_testing")), 9) expect_equal(length(list.files(pattern = "mulTree_testing-tree1_chain")), 2)