¿Los datos son coherentes con el modelo?

En general, es buena idea usar valores p bilaterales, que has calculado así:

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

Sin embargo, en el caso de chi-cuadrado solo calculas la cola derecha, lo que lo convierte en una prueba unilateral. Esa es la cola con estadísticas más comunes cuando la hipótesis de independencia es falsa.

Usando los objetos que creaste en el ejercicio anterior (null_spac, null_arms, chi_obs_spac y chi_obs_arms), calcula los valores p de estas dos pruebas de hipótesis y úsalos para seleccionar la respuesta correcta a continuación. Ten en cuenta que tendrás que ajustar el código de arriba para asegurarte de incluir solo la cola derecha (mayores que) en tus valores p.