diff --git a/R/simulation.R b/R/simulation.R
index ae12e0405f9f9723d0905eff2cb35d576998d533..d9203ddbcb8298a80a28f7c015cc4ff3fad2b21d 100644
--- a/R/simulation.R
+++ b/R/simulation.R
@@ -70,7 +70,6 @@ getRefLevel <- function(data){
 replaceUnexpectedInteractionValuesBy0 <- function(list_var, l_labels_ref , data){
   varInteraction <- getListVar(list_var$interactions)
   df_interaction_with0 <- sapply(varInteraction, function(var){
-    var <- varInteraction
     categorical_var <- paste("label", unlist(strsplit(var, ":")), sep = "_")
     bool_matrix <- sapply(categorical_var, function(uniq_cat_var) data[uniq_cat_var] ==  l_labels_ref[uniq_cat_var])
     idx_0 <- rowSums(bool_matrix) > 0 ## line without interactions effects
diff --git a/dev/flat_full.Rmd b/dev/flat_full.Rmd
index b9d8dc1bed6b21cf78189cfae4735d37f5dab284..99557b838da058544249fb8777c7d31f84a3360d 100644
--- a/dev/flat_full.Rmd
+++ b/dev/flat_full.Rmd
@@ -1587,7 +1587,6 @@ getRefLevel <- function(data){
 replaceUnexpectedInteractionValuesBy0 <- function(list_var, l_labels_ref , data){
   varInteraction <- getListVar(list_var$interactions)
   df_interaction_with0 <- sapply(varInteraction, function(var){
-    var <- varInteraction
     categorical_var <- paste("label", unlist(strsplit(var, ":")), sep = "_")
     bool_matrix <- sapply(categorical_var, function(uniq_cat_var) data[uniq_cat_var] ==  l_labels_ref[uniq_cat_var])
     idx_0 <- rowSums(bool_matrix) > 0 ## line without interactions effects
@@ -8025,7 +8024,7 @@ eval_data <- data.frame(description = c("A", "A", "A"), isDE = c(TRUE, NA, FALSE
 test_that("isValidEvalInput with valid input", {
   
     # Définir des données de test
-    mock_obj <- list(settings = NULL, init = NULL, groundTruth = NULL, counts = NULL, metadata = NULL)
+    mock_obj <- list(settings = NULL, init = NULL, groundTruth = NULL, counts = NULL, metadata = NULL, scaling_factors = NULL)
     list_gene <- c("gene1", "gene2", "gene3")
     list_tmb <- list(glmmTMB1 = NULL, glmmTMB2 = NULL)
     dds <- NULL