##> tab.env.1 <- xtabs(~Ill2+SES+EnvL, data=pdat)
##> ftable(tab.env.1)
##          EnvL Hi Lo Med Nil
##Ill2  SES                   
##Bad   Hi        1  2   8   0
##      Lo        0 10   1  12
##      Med      11 34  16  30
##Emerg Hi        2  1   1   1
##      Lo        3  3   0   3
##      Med       5 12   5  23
##Light Hi        1  1   4   0
##      Lo        4  4   6   5
##      Med      22 19  14  10
## merge Lo and Nil columns -> Lo

Ill2	SES	Hi	Med	Lo                   
Bad	Hi        1  	8   	2
Bad	Lo        0 	1  	22
Bad	Med      11 	16  	64
Emerg 	Hi        2  	1   	2
Emerg	Lo        3  	0   	6
Emerg	Med       5 	5  	35
Light 	Hi        1  	4   	1
Light	Lo        4  	6   	9
Light	Med      22 	14  	29
