2x2表を２つに分ける

• 2x2分割表がある、これを２つの分割表の足し合わせであると見て、２つに分けたい
• 2x2分割表の４セルの値をベクトルで与えてそれを返させよう
• 第1表の４セルの値をx、第2表の４セルの値をy、という行列の4列に収めることにする。行は足し合わせのパターン

divide2two2by2 <- function(v){
	tmp <- list()
	for(i in 1:length(v)){
		tmp[[i]] <- 0:v[i]
	}
	x <- as.matrix(expand.grid(tmp))
	y <- v-t(x)
	return(list(x=x,y=t(y)))
}