speed up testing

TGuillerme · Jan 22, 2016 · 9e9ba02 · 9e9ba02
1 parent dba1bb1
commit 9e9ba02
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 3 deletions.
diff --git 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 <[email protected]> & Kevin Healy <[email protected]>
 Maintainer: Thomas Guillerme <[email protected]>
 Version: 1.2

diff --git 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)