Merge pull request #9 from EmanuelSoda/fix2

Fix2
EmanuelSoda · Sep 8, 2023 · 98b8a11 · 98b8a11
2 parents 6af9546 + 99b28c3
commit 98b8a11
Showing 1 changed file with 5 additions and 3 deletions.
diff --git a/R/filter_by.R b/R/filter_by.R
@@ -64,16 +64,18 @@ filter_by_slope <- function(screenR_Object, genes, group_var_treatment,
     data <- dplyr::distinct(data, .data$Gene, 
                             .data$slope_control, .data$slope_treatment)
     # The treatment has more effect than the control 
+
+
 
     data <- dplyr::mutate(data, keep = dplyr::case_when(
-
-        .data$slope_control <= 0 & .data$slope_treatmet <= 0 & 
+        .data$slope_control <= 0 & .data$slope_treatment <= 0 & 
             .data$slope_treatment < .data$slope_control  ~ TRUE,
 
         .data$slope_control >= 0 & .data$slope_treatment >= 0 & 
             .data$slope_treatment >= .data$slope_control ~ FALSE,
 
-        .data$slope_control >= 0 & .data$slope_treatment <= 0 ~ TRUE))
+        .data$slope_control >= 0 & .data$slope_treatment <= 0 ~ TRUE)
+        )
 
     data <- dplyr::filter(data, .data$keep)
     data$keep <- NULL