table2x2.mtx <- matrix( c( 320, 80, 14, 36 ), nrow=2, byrow=T ) colnames( table2x2.mtx ) <- c( 'Good', 'Bad' ) rownames( table2x2.mtx ) <- c( 'Absent', 'Present' )