Merge branch 'simper-NA'

vegandevs · Jan 26, 2024 · 65dce8d · 65dce8d
2 parents 003391b + 73cb094
commit 65dce8d
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/R/simper.R b/R/simper.R
@@ -67,6 +67,8 @@
                     Pval <- Pval + ((colMeans(spcontr[take,,drop = FALSE]) - EPS) >= average)
                 }
                 Pval <- Pval/(nperm+1)
+                if (anyNA(ratio))
+                    Pval[is.na(ratio)] <- NA
             } else {
                 Pval <- NULL
             }