#3.6 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")

#Have to get ranks from x*10 as xtotab assumes integer
xtotab(x*10)
U(x*10)
BlockAnalysis(x*10)