That sounds great, thank you for your answer. Any advice on tools?
EDIT: Would this approach in R work?
Convictions <- matrix(c(2, 10, 15, 3),
nrow = 2,
dimnames =
list(c("Dizygotic", "Monozygotic"),
c("Convicted", "Not convicted"))) Convictions
fisher.test(Convictions, alternative = "less")