# NOT RUN {
# Permutation test for two binary variables
mtcars %>%
dplyr::mutate(am = factor(am), vs = factor(vs)) %>%
specify(am ~ vs, success = "1") %>%
hypothesize(null = "independence") %>%
generate(reps = 100, type = "permute")
# }
Run the code above in your browser using DataLab