#5.4.1 Lemonade Example
#Note the data in Table 5.6 are transposed to that for chapter 3
x<-cbind(
c(5,3,4,5,3,4,5,3,1,3),
c(2,5,3,2,5,3,2,5,4,1),
c(1,2,2,1,2,2,1,2,2,2),
c(3,1,5,3,1,5,3,1,5,4),
c(4,4,1,4,4,1,4,4,3,5))
colnames(x)<-c("A","B","C","D","E")
x

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

xtotab3(x)
OrderedBlockAnalysis(x)