연습 문제

棄却域

統計量（昇進率の差 0.2917）は、置換分布の極端な端に位置しているようです。つまり、観測された差と同程度に極端な置換による差はごくわずかしかありません。

極端な置換（帰無）差を定量化するために、quantile() 関数を使います。

dplyr パッケージはすでに読み込まれています。

100 XP

置換による差 disc_perm を使って、stat の分位点を次の条件で求めてください。