x <- c(rep("A", 100), rep("B", 78), rep("C", 25))
post_hoc_chi2(x)
x <- data.frame(G1 = c(Yes = 100, No = 78), G2 = c(Yes = 75, No = 23))
post_hoc_chi2(x, count = TRUE, method = "chisq")
data("housetasks")
housetasks[, c("Wife", "Husband")] %>%
t() %>%
post_hoc_chi2(count = TRUE, workspace = 1e6)
x <- cbind(
mapply(function(x, y) rep(x, y), letters[seq(3)], c(7, 5, 8)) %>% unlist(),
mapply(function(x, y) rep(x, y), LETTERS[seq(3)], c(6, 6, 8)) %>% unlist()
)
post_hoc_chi2(x)
Run the code above in your browser using DataLab