table4x4.mtx <- matrix( c(68, 20 ,15, 5, 119, 84, 54, 29, 26, 17, 14, 14, 7, 94, 10, 16), nrow=4, byrow=T )

colnames( table4x4.mtx ) <- c('Brown', 'Blue', 'Hazel', 'Green')

rownames( table4x4.mtx ) <- c('Black', 'Brunette', 'Red', 'Blonde')