Pull request #65: Fixed some issues with tests

Merge in STAT/prestogp from eb-dev to master * commit 'c7f9bb5b524d150fd9f6dd3604e76c91833b3d4f': Fixed some issues with tests
NIEHS · Dec 29, 2024 · 6b318ba · 6b318ba
2 parents 426aa08 + c7f9bb5
commit 6b318ba
Show file tree

Hide file tree

Showing 5 changed files with 9 additions and 4 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -1,7 +1,7 @@
 Package: PrestoGP
 Type: Package
 Title: Penalized Regression for Spatio-Temporal Outcomes via Gaussian Processes 
-Version: 0.2.0.9038
+Version: 0.2.0.9039
 Authors@R: c(
     person(given = "Eric",
            family = "Bair",

diff --git a/NEWS.md b/NEWS.md
@@ -1,3 +1,9 @@
+# PrestoGP 0.2.0.9039 (2024-12-26)
+
+## MINOR IMPROVEMENTS
+
+  * Rewrote some tests that were failing on some verions of R
+
 # PrestoGP 0.2.0.9038 (2024-12-23)
 
 ## NEW FEATURES

diff --git a/tests/testthat/sim_multivariate_big_st.RData b/tests/testthat/sim_multivariate_big_st.RData
diff --git a/tests/testthat/test-Log_Likelihood.R b/tests/testthat/test-Log_Likelihood.R
@@ -200,9 +200,8 @@ test_that("mvnegloglik", {
 })
 
 test_that("mvnegloglik_ST", {
-  source("sim_multivariate_big_st.R")
+  load("sim_multivariate_big_st.RData")
   P <- 3
-  Y <- cbind(runif(10), runif(10), runif(10))
   cor.matrix <- cor(Y)
   cov_mat <- c(cor.matrix[upper.tri(cor.matrix)])
   logparams <- create.initial.values.flex(

diff --git a/tests/testthat/test-PrestoGP_Univariate.R b/tests/testthat/test-PrestoGP_Univariate.R
@@ -267,7 +267,7 @@ test_that("Simulated dataset spatial", {
   expect_equal(as.numeric(beta.out[[1]]), beta.out3[-1], tolerance = 0.07)
   expect_equal(params.out[1], params.out3[1], tolerance = 1.1)
   expect_equal(params.out[2] - params.out3[2], 0, tolerance = 0.3)
-  expect_equal(params.out[3], params.out3[3], tolerance = 0.3)
+  expect_equal(params.out[3] - params.out3[3], 0, tolerance = 0.3)
   expect_equal(params.out[4], params.out3[4], tolerance = 0.4)
 
   # Missing data with lod