Update RNAsummary.R

KJeynesCupper · Feb 20, 2024 · 25f0eef · 25f0eef
1 parent 043d0b3
commit 25f0eef
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/R/RNAsummary.R b/R/RNAsummary.R
@@ -76,7 +76,9 @@ RNAsummary <- function(data, alpha = 0.1, chimeric = FALSE,
   total_rows <- nrow(data)
   # Filter the data based on the padjusted value
   filtered_data <- data[data$padjusted < alpha, ]
-
+# remove any NA values 
+  filtered_data <- filtered_data[complete.cases(filtered_data$padjusted), ]
+
   # number of rows with positive and negative log2FC
   n_up <- sum(filtered_data[, "log2FoldChange"] > 0)
   n_down <- sum(filtered_data[, "log2FoldChange"] < 0)