more with the tests

biodiverse · Sep 2, 2024 · 30721ff · 30721ff
1 parent dbd6f76
commit 30721ff
Show file tree

Hide file tree

Showing 14 changed files with 13 additions and 3 deletions.
diff --git a/tests/testthat/test-intMsPGOcc.R b/tests/testthat/test-intMsPGOcc.R
@@ -3,7 +3,7 @@ skip_on_cran()
 
 # Intercept only ----------------------------------------------------------
 # Simulate data -----------------------------------------------------------
-# set.seed(883)
+set.seed(883)
 J.x <- 10
 J.y <- 10
 # Total number of data sources across the study region

diff --git a/tests/testthat/test-intPGOcc.R b/tests/testthat/test-intPGOcc.R
@@ -3,6 +3,7 @@
 skip_on_cran()
 
 # Intercept only ----------------------------------------------------------
+set.seed(111)
 J.x <- 15
 J.y <- 15
 J.all <- J.x * J.y

diff --git a/tests/testthat/test-lfJSDM.R b/tests/testthat/test-lfJSDM.R
@@ -3,6 +3,7 @@
 skip_on_cran()
 
 # Intercept only ----------------------------------------------------------
+set.seed(1818)
 J.x <- 8
 J.y <- 8
 J <- J.x * J.y

diff --git a/tests/testthat/test-msPGOcc.R b/tests/testthat/test-msPGOcc.R
@@ -3,6 +3,7 @@
 skip_on_cran()
 
 # Intercept only ----------------------------------------------------------
+set.seed(123)
 J.x <- 8
 J.y <- 8
 J <- J.x * J.y

diff --git a/tests/testthat/test-sfJSDM-NNGP.R b/tests/testthat/test-sfJSDM-NNGP.R
@@ -4,6 +4,7 @@
 skip_on_cran()
 
 # Intercept Only ----------------------------------------------------------
+set.seed(833)
 J.x <- 8
 J.y <- 8
 J <- J.x * J.y

diff --git a/tests/testthat/test-sfMsPGOcc-NNGP.R b/tests/testthat/test-sfMsPGOcc-NNGP.R
@@ -4,6 +4,7 @@
 skip_on_cran()
 
 # Intercept Only ----------------------------------------------------------
+set.seed(234)
 J.x <- 8
 J.y <- 8
 J <- J.x * J.y

diff --git a/tests/testthat/test-spIntPGOcc-GP.R b/tests/testthat/test-spIntPGOcc-GP.R
@@ -184,7 +184,6 @@ test_that("non-integer n.post", {
                batch.length = batch.length, 
                accept.rate = 0.43, 
                NNGP = FALSE,
-               n.factors = 3,
 	       n.omp.threads = 1,
 	       verbose = FALSE))
 })

diff --git a/tests/testthat/test-spMsPGOcc-GP.R b/tests/testthat/test-spMsPGOcc-GP.R
@@ -4,6 +4,7 @@
 skip_on_cran()
 
 # Intercept Only ----------------------------------------------------------
+set.seed(1010)
 J.x <- 8
 J.y <- 8
 J <- J.x * J.y

diff --git a/tests/testthat/test-spMsPGOcc-NNGP.R b/tests/testthat/test-spMsPGOcc-NNGP.R
@@ -4,6 +4,7 @@
 skip_on_cran()
 
 # Intercept Only ----------------------------------------------------------
+set.seed(1010)
 J.x <- 8
 J.y <- 8
 J <- J.x * J.y

diff --git a/tests/testthat/test-spPGOcc-GP.R b/tests/testthat/test-spPGOcc-GP.R
@@ -3,6 +3,7 @@
 skip_on_cran()
 
 # Intercept only ----------------------------------------------------------
+set.seed(830)
 J.x <- 8
 J.y <- 8
 J <- J.x * J.y

diff --git a/tests/testthat/test-spPGOcc-NNGP.R b/tests/testthat/test-spPGOcc-NNGP.R
@@ -3,6 +3,7 @@
 skip_on_cran()
 
 # Intercept only ----------------------------------------------------------
+set.seed(237)
 J.x <- 8
 J.y <- 8
 J <- J.x * J.y

diff --git a/tests/testthat/test-svcMsPGOcc-NNGP.R b/tests/testthat/test-svcMsPGOcc-NNGP.R
@@ -4,6 +4,7 @@
 skip_on_cran()
 
 # Intercept Only ----------------------------------------------------------
+set.seed(883)
 J.x <- 8
 J.y <- 8
 J <- J.x * J.y

diff --git a/tests/testthat/test-svcPGBinom-NNGP.R b/tests/testthat/test-svcPGBinom-NNGP.R
@@ -3,6 +3,7 @@
 skip_on_cran()
 
 # Intercept only ----------------------------------------------------------
+set.seed(320)
 J.x <- 8
 J.y <- 8
 J <- J.x * J.y
@@ -119,7 +120,6 @@ test_that("all correlation functions work", {
 	            data = data.list, 
 	            n.batch = 40, 
 	            batch.length = batch.length, 
-              paralllel.chains = TRUE,
 	            cov.model = "gaussian", 
 	            tuning = list(phi = 0.5), 
 	            NNGP = TRUE,

diff --git a/tests/testthat/test-svcPGOcc-NNGP.R b/tests/testthat/test-svcPGOcc-NNGP.R
@@ -3,6 +3,7 @@
 skip_on_cran()
 
 # Intercept only ----------------------------------------------------------
+set.seed(348)
 J.x <- 8
 J.y <- 8
 J <- J.x * J.y