table2x2.mtx <- matrix( c( 320, 80, 14, 36 ), nrow=2, byrow=T )

colnames( table2x2.mtx ) <- c( 'Good', 'Bad' )

rownames( table2x2.mtx ) <- c( 'Absent', 'Present' )