Corrected RESALI bug

2024-04-23 14:25:16 +02:00
parent cd486059c1
commit 799c0ff316
1 changed files with 8 additions and 0 deletions
--- 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')