Corrected RESALI bug

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