disc_perm %>%
  summarize(pvalue = 
      mean(diff_orig <= stat))

# A tibble: 1 × 1
  pvalue
   <dbl>
1   0.03

< 0.05 のため、$H_0$ を棄却し $H_A$ を支持