From c2f01ffdb0caf8b4282a6826628d9011ca37a95a Mon Sep 17 00:00:00 2001
From: bluefoxr <william.becker@bluefoxdata.eu>
Date: Mon, 8 Apr 2024 10:42:10 +0200
Subject: [PATCH] fix NA in index bug for remove_elements()

---
 R/audit_tools.R | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/R/audit_tools.R b/R/audit_tools.R
index d011e283..48c1a58c 100644
--- 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,