fix test

Former-commit-id: cd18d76d32100e93e5dc154c4c948f0938382d05
Former-commit-id: c695a50918d6a90c8dc802e4c6744345d93105d4
Former-commit-id: 6000c231dfb8ebb516f157ef8c57ee789c9e6610

tests/testthat/test-simulation.R

@@ -283,6 +283,7 @@ test_that("replaceUnexpectedInteractionValuesBy0 replaces effects correctly", {
   N_GENES <- 10
   l_dataFrom_normdistr <- getDataFromRnorm(input_var_list, N_GENES)
   metadata <- getGeneMetadata(input_var_list , N_GENES)
+  set.seed(101)
   df_effects <- get_effects_from_rnorm(input_var_list, metadata)
   data <- cbind(metadata, df_effects) 
   
@@ -290,16 +291,17 @@ test_that("replaceUnexpectedInteractionValuesBy0 replaces effects correctly", {
   data <- replaceUnexpectedInteractionValuesBy0(input_var_list, l_labels_ref, data)
   
   # Check if modified data matches the expected data
-  expect_identical(colnames(data), c("geneID","label_genotype","label_env", "label_T", "genotype", "env" , "T", "genotype:env"  ,"genotype:env:T"))
-  expected_data <- data.frame(geneID = "gene1", label_genotype = "genotype1", label_env = "env1", label_T = "T1", genotype = 0, 
-                              env = 0, T = 0, "genotype:env" = 0, "genotype:env:T" = 0 )
+  expect_identical(colnames(data), c("geneID","label_genotype","label_env", 
+                                     "label_T", "genotype", "env" , "T", "genotype:env"  ,"genotype:env:T"))
+  expected_data <- data.frame(geneID = "gene1", label_genotype = "genotype1", label_env = "env1", label_T = "T1", 
+                              genotype =  -0.7107595, env = -0.09334073, T = -0.1013228, "genotype:env" = 0, "genotype:env:T" = 0 )
   colnames(expected_data) <- c("geneID", "label_genotype", "label_env", "label_T", "genotype", 
                               "env", "T" , "genotype:env", "genotype:env:T" )
   expected_data$label_genotype <- factor(expected_data$label_genotype , levels = c("genotype1", "genotype2"))
   expected_data$label_env <- factor(expected_data$label_env , levels = c("env1", "env2", "env3", "env4"))
   expected_data$label_T <- factor(expected_data$label_T , levels = c("T1", "T2", "T3"))
 
-  expect_identical(data[1,], expected_data )
+  expect_equal(data[1,], expected_data ,tolerance = 0.0001 )
 
 })