XX<-matrix(NA,2,8)
XX[1,]<-c(112,122, 108,127,302, 314, 322, 328)
XX[2,]<-c(511, 230, 754, 335,771, 842, 1014,798)
#XX
# [,1] [,2] [,3] [,4] [,5] [,6] [,7] [,8]
#[1,] 112 122 108 127 302 314 322 328
#[2,] 511 230 754 335 771 842 1014 798
oddratio(XX=XX,na=4,nb=4)
#[1] 3.9432676 0.8762017
# see example in mbetattest
Run the code above in your browser using DataLab