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