fix bug in subsampling of ensembles

nicholasjclark · Dec 10, 2024 · b7a3984 · b7a3984
1 parent 415b79c
commit b7a3984
Showing 1 changed file with 1 addition and 1 deletion.
diff --git 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, ]