From 9ce1e8c322c57abc9aaffd7bbde5a3108c0c4eb9 Mon Sep 17 00:00:00 2001
From: aduvermy <arnaud.duvermy@ens-lyon.fr>
Date: Tue, 2 Apr 2024 16:13:57 +0200
Subject: [PATCH] rm unexpected var
Former-commit-id: 85dca737eccac7696204e7101d59903571636883
Former-commit-id: 38a3623a945521f2ecfc268a1b82fcaa7c8c3fc8
Former-commit-id: e02279759e1afa8c557b8a15b5b7c36018396ffa
---
R/simulation.R | 1 -
dev/flat_full.Rmd | 3 +--
2 files changed, 1 insertion(+), 3 deletions(-)
diff --git a/R/simulation.R b/R/simulation.R
index ae12e04..d9203dd 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 b9d8dc1..99557b8 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
--
GitLab