From 799c0ff3161ba39ba32280ee10c8f6fcfd2d5192 Mon Sep 17 00:00:00 2001
From: corentinchoisy <corentin.choisy@proton.me>
Date: Tue, 23 Apr 2024 14:25:16 +0200
Subject: [PATCH] Corrected RESALI bug

---
 Rproject/resali.R | 8 ++++++++
 1 file changed, 8 insertions(+)

diff --git a/Rproject/resali.R b/Rproject/resali.R
index 1cf0a42..00f77cc 100644
--- a/Rproject/resali.R
+++ b/Rproject/resali.R
@@ -61,6 +61,14 @@ resali <- function(df=NULL,items=NULL,group=NULL,verbose=T) {
       pval[i] <- res.anova[[i]][1,"Pr(>F)"]
       fval[i] <- res.anova[[i]][1,'F value']
     }
+    zz <- 0
+    for (name_i in items_n) {
+      zz <- zz+1
+      if (grepl("TT",name_i)) {
+        pval[zz] <- 1
+        fval[zz] <- 0
+      }
+    }
     if (verbose) {
       cat('DONE\n')
       cat('-----------------------------------------------------------\n')