From b7a3984b3c025c7ecfb071398826463eb704bfd6 Mon Sep 17 00:00:00 2001 From: Nicholas Clark Date: Wed, 11 Dec 2024 08:28:51 +1000 Subject: [PATCH] fix bug in subsampling of ensembles --- R/ensemble.R | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/R/ensemble.R b/R/ensemble.R index d9047c69..a16b6c47 100644 --- a/R/ensemble.R +++ b/R/ensemble.R @@ -108,7 +108,7 @@ ensemble.mvgam_forecast <- function(object, ..., ndraws = 5000){ if(NROW(x) < nsamps){ sampinds <- sample(1:NROW(x), nsamps, replace = TRUE) } else { - sampinds <- 1:nsamps + sampinds <- sample(1:NROW(x), nsamps, replace = FALSE) } x[sampinds, ]