From b14594f4bf8b772bffa08d7bbc475d3a6a0b1dac Mon Sep 17 00:00:00 2001
From: unknown <livio@stat.unipd.it>
Date: Thu, 5 Sep 2024 16:44:46 +0200
Subject: [PATCH] maxt-t light algorithm implemented

---
 R/padjust.R | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/R/padjust.R b/R/padjust.R
index b3fe73a..eae0c4b 100644
--- 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)