Revise error

benjamin-james · benjamin-james · commit 62e30b1b359e · 2025-03-10T14:18:05.000-04:00
diff --git a/R/deg.R b/R/deg.R
@@ -565,7 +565,8 @@ deg.deseq2 <- function(se,
         pval <- df$pvalue
         pval[pval < 1e-300] <- 1e-300
         pval[is.na(df$padj)] <- NA
-        S4Vectors::metadata(se)$deg[[paste0(prefix, "_harmonic_mean_pvalue")]] <- 1./mean(1./pval, na.rm    }
+        S4Vectors::metadata(se)$deg[[paste0(prefix, "_harmonic_mean_pvalue")]] <- 1./mean(1./pval, na.rm=TRUE)
+    }
     return(se)
 }
 

Original file line number	Diff line number	Diff line change
`@@ -565,7 +565,8 @@ deg.deseq2 <- function(se,`
`565`	`565`	`pval <- df$pvalue`
`566`	`566`	`pval[pval < 1e-300] <- 1e-300`
`567`	`567`	`pval[is.na(df$padj)] <- NA`
`568`		`- S4Vectors::metadata(se)$deg[[paste0(prefix, "_harmonic_mean_pvalue")]] <- 1./mean(1./pval, na.rm }`
	`568`	`+ S4Vectors::metadata(se)$deg[[paste0(prefix, "_harmonic_mean_pvalue")]] <- 1./mean(1./pval, na.rm=TRUE)`
	`569`	`+ }`
`569`	`570`	`return(se)`
`570`	`571`	`}`
`571`	`572`