library(vcd)
data(SexualFun)
SexualFun                # show the table
chisq.test(SexualFun)    # general association
fisher.test(SexualFun)   # exact test
assocstats(SexualFun)    # association statistics