Fixing unit tests for CRAN

Author: kgoldfeld

DESCRIPTION

@@ -1,8 +1,8 @@
 Type: Package
 Package: simstudy
 Title: Simulation of Study Data
-Version: 0.9.1.9000
-Date: 2025-12-10
+Version: 0.9.2
+Date: 2026-02-06
 Authors@R: 
     c(person(given = "Keith",
              family = "Goldfeld",

NEWS.md

@@ -1,4 +1,7 @@
-# simstudy (development version)
+# simstudy (0.9.2)
+
+* A minor fix in a unit test for correlated matrices that was failing on CRAN due to
+tolerance error.
 
 # simstudy 0.9.1
 

tests/testthat/test-generate_correlated_data.R

@@ -593,6 +593,7 @@ test_that("Basic Functionality Test", {
 })
 
 test_that("Distribution Test", {
+  set.seed(1000)
   def <- defData(varname = "xNorm", formula = 8, variance = 4, dist = "normal")
   def <- defData(def, varname = "xGamma1", formula = 15, variance = 2, dist = "gamma")
   def <- defData(def, varname = "xUniform1", formula = "3;8", dist = "uniform")
@@ -612,17 +613,19 @@ test_that("Distribution Test", {
 })
 
 test_that("Correlation Structure Test", {
+  set.seed(123)
   def <- defData(varname = "xNorm", formula = 7, variance = 4, dist = "normal")
   def <- defData(def, varname = "xGamma1", formula = 15, variance = 2, dist = "gamma")
 
-  dt <- genCorFlex(500, def, rho = .3, corstr = "cs")
+  dt <- genCorFlex(1000, def, rho = .3, corstr = "cs")
 
   cor_matrix <- cor(dt[, -"id"])
   expect_equal(cor_matrix, matrix(c(1, .3, .3, 1), 2, 2),
                tolerance = .15, check.attributes = FALSE)
 })
 
 test_that("Correlation Structure Test for tau", {
+  set.seed(123)
   def <- defData(varname = "xPois1", formula = 7, dist = "poisson")
   def <- defData(def, varname = "xPois2", formula = 15, dist = "poisson")
 
@@ -633,6 +636,7 @@ test_that("Correlation Structure Test for tau", {
 })
 
 test_that("Character error for formula", {
+  set.seed(123)
   # Create a definition with a non-numeric formula to trigger the warning
   def <- data.table::data.table(
     varname = c("xNorm", "xInvalid"),