# month of birth and month of death of famous Americans
# row of table = month of birth
# col of table = month of death
######################################################################
######################################################################
PFtable <- matrix(c(
1,1,2,1,2,2,4,3,1,4,2,4,
2,3,1,3,1,0,2,1,2,2,6,4,
5,6,5,3,1,0,5,1,2,5,3,1,
7,6,3,2,1,3,3,1,3,2,4,4,
4,4,2,2,1,2,4,1,3,2,1,5,
4,0,4,5,1,1,1,2,1,2,4,0,
4,0,3,4,3,3,4,1,6,4,2,5,
4,4,4,4,2,2,3,3,1,1,2,0,
2,2,1,0,2,0,2,4,2,0,5,2,
4,2,2,3,2,2,2,3,3,1,4,5,
0,2,0,2,1,1,0,3,3,3,1,0,
1,2,2,1,2,1,4,1,4,0,2,2), 12, 12, byrow=FALSE)