... fix sensitivity with single endpoint ...

bozenne · Sep 27, 2023 · 6344f33 · 6344f33
1 parent 00c37ef
commit 6344f33
Show file tree

Hide file tree

Showing 4 changed files with 1,990 additions and 2,021 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -2,7 +2,7 @@ Package: BuyseTest
 Type: Package
 Title: Generalized Pairwise Comparisons
 Version: 3.0.0
-Date: 2023-09-25
+Date: 2023-09-27
 Authors@R: c(
     person("Brice", "Ozenne", role = c("aut", "cre"), email = "brice.mh.ozenne@gmail.com", comment = c(ORCID = "0000-0001-9694-2956")),
     person("Julien", "Peron", role = "ctb"),

diff --git a/R/S4-BuyseTest-sensitivity.R b/R/S4-BuyseTest-sensitivity.R
@@ -3,9 +3,9 @@
 ## Author: Brice Ozenne
 ## Created: mar 31 2021 (14:07) 
 ## Version: 
-## Last-Updated: jul 17 2023 (18:11) 
+## Last-Updated: sep 27 2023 (17:07) 
 ##           By: Brice Ozenne
-##     Update #: 333
+##     Update #: 335
 ##----------------------------------------------------------------------
 ## 
 ### Commentary: 
@@ -230,7 +230,7 @@ setMethod(f = "sensitivity",
                       iConfint <- confint(iBT, statistic = statistic, null = null, conf.level = conf.level, alternative = alternative, transformation = transformation)[n.endpoint,]
                       ls.confint[[iSe]] <- data.frame(c(gridRed.threshold[iSe,,drop=FALSE], iConfint))
                       if(iBT@method.inference=="u-statistic"){
-                          ls.iid[[iSe]] <- getIid(iBT, statistic = statistic)[,n.endpoint]
+                          ls.iid[[iSe]] <- getIid(iBT, statistic = statistic,simplify=FALSE)$global[,n.endpoint]
                       }
                   }
 

diff --git a/R/discreteRoot.R b/R/discreteRoot.R
@@ -3,9 +3,9 @@
 ## Author: Brice Ozenne
 ## Created: nov 22 2017 (13:39) 
 ## Version: 
-## Last-Updated: sep 26 2023 (09:42) 
+## Last-Updated: sep 27 2023 (17:33) 
 ##           By: Brice Ozenne
-##     Update #: 314
+##     Update #: 315
 ##----------------------------------------------------------------------
 ## 
 ### Commentary: 
@@ -192,7 +192,7 @@ boot2pvalue <- function(x, null, estimate = NULL, alternative = "two.sided",
     x.boot <- na.omit(x)
     n.boot <- length(x.boot)
     if(any(is.infinite(x.boot))){
-        statistic.boot <- median(x.boot, na.rm = TRUE) - null
+        statistic.boot <- stats::median(x.boot, na.rm = TRUE) - null
     }else{
         statistic.boot <- mean(x.boot, na.rm = TRUE) - null
     }