Catania <- matrix( nrow=4, ncol=4, byrow=TRUE,
c(506 , 32 , 69 , 26 ,
23 , 308 , 114 , 38 ,
26 , 46 , 599 , 68 ,
10 , 14 , 47 , 32),
dimnames = list( man = c("black", "hispanic", "white", "other"),
woman=c("black", "hispanic", "white", "other")) )
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.