fix NA in index bug for remove_elements()

bluefoxr · Apr 8, 2024 · c2f01ff · c2f01ff
1 parent 3f23750
commit c2f01ff
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/audit_tools.R b/R/audit_tools.R
@@ -153,7 +153,7 @@ remove_elements <- function(coin, Level, dset, iCode, quietly = FALSE){
   rankchgabs <- rankchg
   rankchgabs[-1] <- apply(rankchgabs[-1], 2, abs)
   # mean absolute rank changes
-  MeanAbsDiff <- colMeans(rankchgabs[-1])
+  MeanAbsDiff <- colMeans(rankchgabs[-1], na.rm = TRUE)
 
   # Output
   list(Scores = Scores,