# NOT RUN {
ci_chisq_ncp(mtcars[c("am", "vs")])
ci_chisq_ncp(mtcars[c("am", "vs")], type = "bootstrap", R = 999)
ir <- iris
ir$PL <- ir$Petal.Width > 1
ci_chisq_ncp(ir[, c("Species", "PL")])
ci_chisq_ncp(ir[, c("Species", "PL")], probs = c(0.05, 1))
# }
Run the code above in your browser using DataLab