#4.6.2 Ice Cream (Vanilla Flavour) Example
x<-matrix(c(
2,	4,	0,	3,	NA,	NA,
0,	4,	3,	NA,	5,	NA,
0,	3,	4,	NA,	NA,	5,
1,	3,	NA,	4,	5,	NA,
0,	2,	NA,	4,	NA,	5,
0,	1,	NA,	NA,	4,	5,
2,	NA,	3,	1,	4,	NA,
0,	NA,	0,	3,	NA,	4,
0,	NA,	2,	NA,	3,	3,
2,	NA,	NA,	4,	1,	4,
NA,	0,	2,	3,	1,	NA,
NA,	1,	1,	2,	NA,	4,
NA,	2,	3,	NA,	5,	4,
NA,	1,	NA,	4,	5,	2,
NA,	NA,	4,	3,	1,	2),ncol=6,byrow=T)
colnames(x)<-c("A","B","C","D","E","F")

# Note that 1 is added to the numbers to meet the data structure requirements
xtotab(x+1)
U(x+1)
BlockAnalysis(x+1)