inst/examples/R/data/bivariate/fishers_test/example_fisher.R

# acacia ants (Hand (1994), Handbook of small datasets)
aa <- data.frame(acacia=c("A", "B", "A", "B"),
                 invaded=c("No", "No", "Yes", "Yes"),
                 Freq=c(2,10,13,3))
tab <- xtabs(Freq~acacia+invaded, data=aa)
tab
fisher.test(tab)
sigbertklinke/shinyExample documentation built on May 26, 2019, 4:32 a.m.