# NOT RUN {
crossTab(infert$education, infert$induced, samples=50);
### Get confidence interval for Cramer's V
### Note that by using 'table', and so removing the raw data, inhibits
### bootstrapping, which could otherwise take a while.
confIntV(table(infert$education, infert$induced));
# }
Run the code above in your browser using DataLab