fix example

philchalmers · Dec 2, 2024 · 6df3eae · 6df3eae
1 parent 10dea9e
commit 6df3eae
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/PBA.R b/R/PBA.R
@@ -331,8 +331,8 @@ PBA <- function(f, interval, ..., p = .6,
     converged <- iter < maxiter
     predCIs <- c(NA, NA, NA)
     predCIs_root <- c(NA, NA)
-    names(predCIs_root) <- paste0('CI_', predCI*100)
     if(!is.null(FromSimSolve)){
+        names(predCIs_root) <- paste0('CI_', predCI*100)
         predCIs <- SimSolveUniroot(SimMod=SimMod, b=dots$b,
                                interval=quantile(medhistory[medhistory != 0],
                                                  probs = c(.05, .95)),