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

brookslogan · brookslogan · commit b1c34cb86214 · 2023-10-05T07:48:40.000-07:00
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

Original file line number	Diff line number	Diff line change
`@@ -245,7 +245,8 @@ propagate_samples <- function(`
`245`	`245`	`if (symmetrize) {`
`246`	`246`	`r <- c(r, -r)`
`247`	`247`	`}`
`248`		`- samp <- quantile(r, probs = c(0, seq_len(nsim - 1)) / (nsim - 1), na.rm = TRUE)`
	`248`	`+ samp <- quantile(r, probs = c(0, seq_len(nsim - 1)) / (nsim - 1),`
	`249`	`+ na.rm = TRUE, names = FALSE)`
`249`	`250`	`res <- list()`
`250`	`251`
`251`	`252`	`raw <- samp + p`