temp.data<-data.frame(a=rnorm(100)>0,b=rnorm(100)>0,gender=rep(c("male","female"),50))
#a vs. b stratified by gender
tab<-contingency.tables(a,b,gender,data=temp.data)
tab
##extract counts
extract.counts(tab)
##Yields something like the following:
#$`a by b`
#, , female
#
# FALSE TRUE
#FALSE 11 9
#TRUE 15 15
#
#, , male
#
# FALSE TRUE
#FALSE 10 10
#TRUE 22 8
Run the code above in your browser using DataLab