inst/snippet/fisher-twins01.R

phyper(2, 17, 13, 12)
convictions <- rbind(dizygotic = c(2, 15), monozygotic = c(10, 3))
colnames(convictions) <- c("convicted", "not convicted")
convictions
fisher.test(convictions, alternative = "less") %>% pval()
fisher.test(convictions, alternative = "less")
rpruim/fastR documentation built on Nov. 12, 2023, 12:26 p.m.