Few changes in R code

2025-01-15 10:51:52 +01:00
parent 7f1a9ad455
commit 7712f8396f
6 changed files with 2496 additions and 397 deletions
--- a/RProject/Scripts/Analysis/functions/resali.R
+++ b/RProject/Scripts/Analysis/functions/resali.R
@ -30,6 +30,7 @@ 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']
  }
+  print(res.anova)
  if (verbose) {
    cat('DONE\n')
    cat('-----------------------------------------------------------\n')