disc_perm %>% 
    summarize(q.05 = quantile(diff_perm, p = 0.05),
              q.95 = quantile(diff_perm, p = 0.95))

# A tibble: 1 × 2
       q.05      q.95 
       <dbl>     <dbl>
1 -0.2083333 0.2083333