Running examples in 'brisk-Ex.R' failed
The error most likely occurred in:

> ### Name: benefit
> ### Title: Bayesian Benefit Risk
> ### Aliases: benefit risk br mcda
> 
> ### ** Examples
> 
> set.seed(1132)
> ilogit <- function(x) 1 / (1 + exp(-x))
> out <- mcda(
+   benefit("CV", function(x) ilogit(x), weight = .75),
+   risk("DVT", function(x) ilogit(- .5 * x), weight = .25),
+   br_group(
+     label = "PBO",
+     CV = rnorm(1e4, .1),
+     DVT = rnorm(1e4, .1)
+   ),
+   br_group(
+     label = "TRT",
+     CV = rnorm(1e4, 2),
+     DVT = rnorm(1e4, 1)
+   )
+ )
> 
> out
# A tibble: 20,000 × 11
       CV CV_weight CV_utility CV_score     DVT DVT_weight DVT_utility DVT_score
    <dbl>     <dbl>      <dbl>    <dbl>   <dbl>      <dbl>       <dbl>     <dbl>
 1  1.47       0.75      0.813    0.610  0.439        0.25       0.445    0.111 
 2  0.239      0.75      0.559    0.420 -2.12         0.25       0.743    0.186 
 3  0.969      0.75      0.725    0.544  0.974        0.25       0.381    0.0951
 4  0.655      0.75      0.658    0.494  0.0771       0.25       0.490    0.123 
 5  1.51       0.75      0.819    0.615 -0.993        0.25       0.622    0.155 
 6 -1.32       0.75      0.210    0.158 -0.874        0.25       0.607    0.152 
 7  0.395      0.75      0.598    0.448  1.03         0.25       0.375    0.0936
 8 -1.43       0.75      0.193    0.145 -0.903        0.25       0.611    0.153 
 9  0.180      0.75      0.545    0.409 -0.685        0.25       0.585    0.146 
10 -0.960      0.75      0.277    0.208 -1.50         0.25       0.679    0.170 
# ℹ 19,990 more rows
# ℹ 3 more variables: label <chr>, iter <int>, total <dbl>
> 
> summary(out, probs = c(.025, .5, .975))
Error in `dplyr::summarize()`:
ℹ In argument: `qtiles = safe_quantile(.data$total, prob = c(0.025, 0.5,
  0.975))`.
ℹ In group 1: `label = "PBO"`.
Caused by error:
! `qtiles` must be size 1, not 3.
ℹ To return more or less than 1 row per group, use `reframe()`.
Backtrace:
     ▆
  1. ├─base::summary(out, probs = c(0.025, 0.5, 0.975))
  2. ├─brisk:::summary.brisk_br(out, probs = c(0.025, 0.5, 0.975))
  3. │ └─scores %>% dplyr::group_by(.data$label) %>% ...
  4. ├─dplyr::summarize(...)
  5. ├─dplyr:::summarise.grouped_df(...)
  6. │ └─dplyr:::summarise_cols(.data, dplyr_quosures(...), by, "summarise")
  7. │   └─base::withCallingHandlers(...)
  8. ├─dplyr:::dplyr_internal_error(...)
  9. │ └─rlang::abort(class = c(class, "dplyr:::internal_error"), dplyr_error_data = data)
 10. │   └─rlang:::signal_abort(cnd, .file)
 11. │     └─base::signalCondition(cnd)
 12. └─dplyr (local) `<fn>`(`<dpl:::__>`)
 13.   └─dplyr (local) handler(cnd)
 14.     └─rlang::abort(message, class = error_class, parent = parent, call = error_call)
Execution halted