Speed up cdc baseline: quantile(...., names = FALSE)

cmu-delphi · Oct 5, 2023 · b1c34cb · b1c34cb
1 parent 0905ba4
commit b1c34cb
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/R/layer_cdc_flatline_quantiles.R b/R/layer_cdc_flatline_quantiles.R
@@ -245,7 +245,8 @@ propagate_samples <- function(
   if (symmetrize) {
     r <- c(r, -r)
   }
-  samp <- quantile(r, probs = c(0, seq_len(nsim - 1)) / (nsim - 1), na.rm = TRUE)
+  samp <- quantile(r, probs = c(0, seq_len(nsim - 1)) / (nsim - 1),
+                   na.rm = TRUE, names = FALSE)
   res <- list()
 
   raw <- samp + p