#6.3 Ordinal Data Example
x<-rbind(
c(2.5,1,2.5),
c(1.5,3,1.5),
c(2.5,1,2.5),
c(1.5,3,1.5),
c(1.5,3,1.5),
c(1,3,2),
c(1,3,2),
c(1.5,3,1.5))
colnames(x)<-c("X","Y","Z")

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