棄却域
統計量（昇進率の差 0.2917）は、置換分布の極端な端に位置しているようです。つまり、観測された差と同程度に極端な置換による差はごくわずかしかありません。
極端な置換（帰無）差を定量化するために、quantile() 関数を使います。
dplyr パッケージはすでに読み込まれています。
この演習はコースの一部です
Rによる推測の基礎
演習の手順
置換による差 disc_perm を使って、stat の分位点を次の条件で求めてください。
- 置換による差のうち 10% がその値より大きい（0.9 分位点）
- 置換による差のうち 5% がその値より大きい（0.95 分位点）
- 置換による差のうち 1% がその値より大きい（0.99 分位点）
実践的なインタラクティブ演習
このサンプルコードを完成させて、この演習に挑戦してみましょう。
disc_perm %>%
summarize(
# Find the 0.9 quantile of diff_perm's stat
q.90 = ___(___, p = ___),
# ... and the 0.95 quantile
q.95 = ___,
# ... and the 0.99 quantile
q.99 = ___
)