Important bugfix for subsampling replicates.

bschneidr · Oct 15, 2023 · afb5b1b · afb5b1b
1 parent 6f828bd
commit afb5b1b
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/subsample_replicates.R b/R/subsample_replicates.R
@@ -90,7 +90,7 @@ subsample_replicates <- function(design, n_reps) {
 
   # Determine the new order of the replicates
   selected_subsample <- sample(
-    x = seq_len(n_reps), size = n_reps, replace = FALSE
+    x = seq_len(orig_n_reps), size = n_reps, replace = FALSE
   )
 
   # Update the overall scale factor