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')