#3.5 Tomato Example
x<-rbind(
c(43,74,109,39),
c(5,112,25,82),
c(74,64,48,100),
c(64,101,91,64),
c(10,105,52,126),
c(16,12,35,26),
c(75,33,42,24),
c(35,90,100,20),
c(36,74,22,129),
c(76,37,122,19),
c(60,50,105,113),
c(57,44,119,57),
c(55,18,29,61),
c(29,24,26,21),
c(82,48,102,6),
c(91,62,48,13),
c(66,88,108,118),
c(27,50,53,91),
c(72,73,57,60),
c(108,119,82,88),
c(84,109,105,15),
c(50,50,108,32),
c(82,12,13,134),
c(39,37,74,29))
colnames(x)<-c("Floradade","Momotaro","Summit","Rutgers")

#First do case where ties have been randomly allocated (ties in rows 4, 12 & 22)
xnoties<-x
xnoties[c(4,12),1]<-x[c(4,12),1]+1
xnoties[22,2]<-x[22,2]+1
xtotab(xnoties)
U(xnoties)
BlockAnalysis(xnoties)

#Then do case where ties are used
xtotab(x)
U(x)
BlockAnalysis(x)