under55 <- matrix(c(30,16,64,308),nc=2) fisher.test(under55) over55 <- matrix(c(66,68,45,158),nc=2) fisher.test(over55) allbyage <- array(c(under55,over55),dim=c(2,2,2)) dimnames(allbyage) <- list(c("‘åŽðˆù‚Ý","ˆù‚Ü‚È‚¢"), c("Š³ŽÒ","‘ÎÆ"),c("55Ζ¢–ž","55ΈÈã")) allbyage library(vcd) woolf_test(allbyage) mantelhaen.test(allbyage) fourfold(allbyage) detach(package:vcd)