data("Music_preferences")
# chisq.test(Music_preferences)
#>
#> Pearson's Chi-squared test
#>
#> data: Music_preferences
#> X-squared = 95.508, df = 6, p-value < 2.2e-16
#>
chisq_to_cohens_w(95.508,
n = sum(Music_preferences),
nrow = nrow(Music_preferences),
ncol = ncol(Music_preferences)
)
data("Smoking_FASD")
# chisq.test(Smoking_FASD, p = c(0.015, 0.010, 0.975))
#>
#> Chi-squared test for given probabilities
#>
#> data: Smoking_FASD
#> X-squared = 7.8521, df = 2, p-value = 0.01972
chisq_to_fei(
7.8521,
n = sum(Smoking_FASD),
nrow = 1,
ncol = 3,
p = c(0.015, 0.010, 0.975)
)
Run the code above in your browser using DataLab