Remove NA in output signal

YuhangTom · Feb 4, 2024 · 6933476 · 6933476
1 parent f29550d
commit 6933476
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/R/x3p_raw_sig_vec.R b/R/x3p_raw_sig_vec.R
@@ -43,7 +43,8 @@ x3p_raw_sig_vec <- function(x3p, ifplot = FALSE) {
 
   raw_sig <- x3p_df %>%
     group_by(x) %>%
-    summarise(sig = median(value, na.rm = TRUE))
+    summarise(sig = median(value, na.rm = TRUE)) %>%
+    filter(!is.na(sig))
 
   if (ifplot) {
     p_all <- x3p_df %>%