#3.8 Catfood Example

x<-rbind(
c(2,1,2,2),
c(3,4,1,4),
c(3,2,2,3),
c(2,1,1,3),
c(3,2,5,5),
c(2,2,2,4),
c(1,3,2,3),
c(3,3,3,4),
c(3,4,1,4),
c(4,4,2,5),
c(3,5,2,2),
c(3,1,3,5),
c(4,5,1,5),
c(1,5,1,5),
c(3,2,3,4),
c(3,4,3,4),
c(3,1,2,2),
c(1,3,1,3),
c(1,3,1,3),
c(1,5,3,2))
colnames(x)<-c("A","B","C","D")

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