#5.4.2 Geese Meat Example
x<-rbind(
c(2.5,1,2.5),
c(1.5,3,1.5),
c(2.5,1,2.5),
c(1,3,2),
c(1.5,3,1.5),
c(1,2.5,2.5),
c(1,3,2),
c(1.5,3,1.5))
colnames(x)<-c("A","B","C")
x

xtotab3(x)
OrderedBlockAnalysis(x)