資料與模型是否一致？

一般而言，使用「雙尾」p 值是個好主意，你先前是這樣計算的：

# Compute two-tailed p-value
null %>%
  summarize(pval = 2 * mean(stat <= d_hat))

不過在卡方統計量的情況下，只需計算右尾，因此是「單尾」檢定。這個右尾包含在獨立性假設為假時更常見的統計量。

使用你在前一題建立的物件（null_spac、null_arms、chi_obs_spac 和 chi_obs_arms），計算這兩個假設檢定的 p 值，並用結果選出下方正確答案。注意，你需要調整上面的程式碼，確保 p 值只包含右尾（大於）的部分。