Remove ties-breaking for plotConfidence

ppernot · Apr 24, 2023 · 51fc9d7 · 51fc9d7
1 parent 26c4379
commit 51fc9d7
Show file tree

Hide file tree

Showing 7 changed files with 40 additions and 4 deletions.
diff --git a/NAMESPACE b/NAMESPACE
@@ -73,6 +73,7 @@ export(sdZCI)
 export(setgPars)
 export(skew)
 export(skewgm)
+export(testCovIntProb)
 export(trendCorr)
 export(varZCI)
 export(varvar)

diff --git a/R/plotConfidence.R b/R/plotConfidence.R
@@ -129,10 +129,10 @@ plotConfidence = function(
   Normp4 = function(N, df = 4)
     normalp::rnormp(N, p = df) / sqrt(df^(2/df)*gamma(3/df)/gamma(1/df))
 
-  # Reorder data (use abs(E) to resolve ties)
-  io  = order(uE, abs(E), decreasing = TRUE)
-  uE  = uE[io]
-  E   = E[io]
+  # Reorder data
+  io = order(uE, decreasing = TRUE)
+  uE = uE[io]
+  E  = E[io]
   if(oracle) {
     # Perfect ordered set for oracle
     io = order(abs(E), decreasing = TRUE)

diff --git a/man/plotLCP.Rd b/man/plotLCP.Rd
diff --git a/man/plotLZISD.Rd b/man/plotLZISD.Rd
diff --git a/man/plotLZV.Rd b/man/plotLZV.Rd
diff --git a/man/plotRelDiag.Rd b/man/plotRelDiag.Rd
diff --git a/man/testCovIntProb.Rd b/man/testCovIntProb.Rd