table3x2.mtx <- matrix( c(21, 81, 45, 101, 30, 40), nrow=3, byrow=T )

colnames( table3x2.mtx ) <- c('Case', 'Control')

rownames( table3x2.mtx ) <- c('Val/Val', 'Val/Ala', 'Ala/Ala')