Wrap fisher.test (test of categorical independence).
# S3 method for htest wrapFisherTest(x, ...)
x | fisher.test result |
---|---|
... | extra arguments (not used) |
wrapped test.
d <- data.frame(x=c('b','a','a','a','b','b','b'), y=c('1','1','1','2','2','2','2')) ft <- fisher.test(table(d)) wrapFisherTest(ft)#> [1] "Fisher's Exact Test for Count Data: (odds.ratio=4.45, p=n.s.)."