##> 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
"Ill2"	"SES"	"HiE"	"LowE"	"MedE"	"NilE"                   
"Bad"	"Hi"        1  	2   	8   	0
"Bad"	"Lo"        0 	10   	1  	12
"Bad"	"Med"      11 	34  	16  	30
"Emerg" "Hi"        2  	1   	1   	1
"Emerg"	"Lo"        3  	3   	0   	3
"Emerg"	"Med"       5 	12   	5  	23
"Light" "Hi"       1  	1   	4   	0
"Light"	"Lo"       4  	4   	6   	5
"Light"	"Med"     22 	19  	14  	10
