Jsou data konzistentní s modelem?

Obecně je dobré používat dvoustranné p-hodnoty, které se počítají takto:

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

U chí-kvadrát testu se ale pracuje pouze s pravým ocasem, což z něj dělá jednostranný test. V tomto ocasu se nacházejí statistiky, které jsou častější v případě, kdy je hypotéza o nezávislosti nepravdivá.

Pomocí objektů vytvořených v předchozím cvičení (null_spac, null_arms, chi_obs_spac a chi_obs_arms) vypočítej p-hodnoty obou hypotézových testů a na jejich základě vyber správnou odpověď níže. Nezapomeň upravit kód tak, aby zahrnoval pouze pravý ocas (větší než) p-hodnot.