From a0a076734c01e6c656b79b0964979053f1fc9aaf Mon Sep 17 00:00:00 2001
From: bettinagruen <3341603+bettinagruen@users.noreply.github.com>
Date: Wed, 2 Feb 2022 20:29:38 +0100
Subject: [PATCH 1/3] Update bcajack.R

Explicit return added when K = 0 to stop function execution.
---
 R/bcajack.R | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/R/bcajack.R b/R/bcajack.R
index 162daea..def9da5 100644
--- a/R/bcajack.R
+++ b/R/bcajack.R
@@ -217,7 +217,7 @@ bcajack <- function(x, B, func, ..., m = nrow(x), mr = 5, K = 2, J = 10,
     names(stats0) <- c("theta", "sdboot", "z0", "a", "sdjack")
     vl0 <- list(lims = lims0, stats = stats0, B.mean = B.mean, call = call, seed = seed)
     if (K == 0)
-        bcaboot.return(vl0)
+        return(bcaboot.return(vl0))
 
     pct <- rep(0, nal)
     ##for (i in 1:nal) pct[i] <- round(sum(tt <= lims0[i, 1])/B, 3)

From b5b715f1258952157c67b82e35258f37eb456299 Mon Sep 17 00:00:00 2001
From: bettinagruen <3341603+bettinagruen@users.noreply.github.com>
Date: Wed, 2 Feb 2022 20:30:55 +0100
Subject: [PATCH 2/3] Update bcajack2.R

Explicit return added when K = 0 to stop function execution.
---
 R/bcajack2.R | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/R/bcajack2.R b/R/bcajack2.R
index 1210c23..e9c0d59 100644
--- a/R/bcajack2.R
+++ b/R/bcajack2.R
@@ -195,7 +195,7 @@ bcajack2 <- function(x, B, func, ..., m = nrow(x), mr, pct = 0.333, K = 2, J = 1
     vl0$seed <- seed
 
     if (K == 0)
-        bcaboot.return(vl0)
+        return(bcaboot.return(vl0))
 
     nal <- length(alpha)
     Pct <- rep(0, nal)

From b0643b214fa1d82a615aa8a9d66c8afe268e208e Mon Sep 17 00:00:00 2001
From: bettinagruen <3341603+bettinagruen@users.noreply.github.com>
Date: Wed, 2 Feb 2022 20:31:35 +0100
Subject: [PATCH 3/3] Update bcapar.R

Explicit return added when K = 0 to stop function execution.
---
 R/bcapar.R | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/R/bcapar.R b/R/bcapar.R
index 0ec65d3..4e4eb73 100644
--- a/R/bcapar.R
+++ b/R/bcapar.R
@@ -90,7 +90,7 @@ bcapar <- function(t0, tt, bb,
     if (K == 0) {
         result <- bca(t0, tt, bb, alpha = alpha, trun = trun, pct = pct)
         result$seed <- seed
-        bcaboot.return(result)
+        return(bcaboot.return(result))
     }
     call <- match.call()
     B <- length(tt)