library(effectsize)
## 2D tables
## ---------
data("Music_preferences2")
Music_preferences2
cramers_v(Music_preferences2, adjust = FALSE)
v_to_t(0.80, 3, 4)
tschuprows_t(Music_preferences2)
## Goodness of fit
## ---------------
data("Smoking_FASD")
Smoking_FASD
cohens_w(Smoking_FASD, p = c(0.015, 0.010, 0.975))
w_to_fei(0.11, p = c(0.015, 0.010, 0.975))
fei(Smoking_FASD, p = c(0.015, 0.010, 0.975))
if (FALSE) { # require(pwr)
## Power analysis
## --------------
# See https://osf.io/cg64s/
p0 <- c(0.35, 0.65)
Fei <- 0.3
pwr::pwr.chisq.test(
w = fei_to_w(Fei, p = p0),
df = length(p0) - 1,
sig.level = 0.01,
power = 0.85
)
}
Run the code above in your browser using DataLab