PERF: return t-stat instead

ANTsX · Dec 9, 2024 · 9e97374 · 9e97374
1 parent 185de46
commit 9e97374
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/multiscaleSVDxpts.R b/R/multiscaleSVDxpts.R
@@ -4376,7 +4376,7 @@ simlr.perm <- function(voxmats, smoothingMatrices, iterations = 10, sparsenessQu
   if ( nperms >  1  ) {
     for (varname in refvarxmeansnms ) {
       mytt <- t.test(simlrpermvarx[1, varname] - simlrpermvarx[-1, varname], alternative='greater')
-      simlrpermvarx_ttest[varname] = mytt$p.value
+      simlrpermvarx_ttest[varname] = mytt$statistic   
     }
     nexter=nrow(simlrpermvarx)+1
     simlrpermvarx[nexter,'perm']='ttest'