data(raceDolls)
## chi-square test
## Barely significant with continuity correction
chisq.test(raceDolls)
## Bayes factor test (assuming independent binomial sampling plan)
## Very little evidence for the alternative of lack of independence
bf = contingencyTableBF(raceDolls, sampleType = "indepMulti", fixedMargin = "cols")
bf
Run the code above in your browser using DataLab