#4.4 Canned fruit Example
x<-matrix(c(
2,	1,	2,	NA,	NA,	NA,	NA,	NA,	NA,
NA,	NA,	NA,	2,	1,	3,	NA,	NA,	NA,
NA,	NA,	NA,	NA,	NA,	NA,	3,	2,	1,
2,	NA,	NA,	1,	NA,	NA,	2,	NA,	NA,
NA,	2,	NA,	NA,	1,	NA,	NA,	3,	NA,
NA,	NA,	3,	NA,	NA,	2,	NA,	NA,	1,
3,	NA,	NA,	NA,	2,	NA,	NA,	NA,	1,
NA,	NA,	3,	1,	NA,	NA,	NA,	2,	NA,
NA,	1,	NA,	NA,	NA,	2,	3,	NA,	NA,
NA,	NA,	2,	NA,	1,	NA,	3,	NA,	NA,
1,NA,	NA,	NA,	NA,	3,	NA,	1,	NA,
NA,	2,	NA,	2,	NA,	NA,	NA,	NA,	2),ncol=9,byrow=T)
colnames(x)<-c("A","B","C","D","E","F","G","H","I")

xtotab(x)
U(x)
BlockAnalysis(x)