maxt-t light algorithm implemented

livioivil · Sep 5, 2024 · b14594f · b14594f
1 parent 76f0dac
commit b14594f
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/R/padjust.R b/R/padjust.R
@@ -24,7 +24,8 @@ p.adjust.jointest <- function (mods, method = "maxT", tail = 0, ...)
 #      if("alphas"%in%names(as.list(match.call())))
       p.adj=maxT.light(abs(res$Tspace),...)
     } else 
-      if(method=="minp")  {    p.adj=maxT.light(-abs(res$Tspace),...)
+      if(method%in%c("minp","Tippet") ) {
+        p.adj=maxT.light(-abs(res$Tspace),...)
       } else
         p.adj = flip.adjust(.set_tail(mods$Tspace, tail = tail), 
                             method = method)