#3.2 Peach Example
x<-rbind(
c(1,2,3,4,5),
c(1,2,3,5,4),
c(1,4,5,2,3),
c(1,3,4,5,2),
c(1,2,3,5,4),
c(1,3,5,2,4),
c(1,5,4,3,2),
c(1,2,3,5,4),
c(1,2,4,3,5),
c(1,5,2,4,3))
colnames(x)<-c("A","B","C","D","E")

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