#5.3 Plate Count Example
x<-matrix(c(1.4,6.36,3.5,2.45,2.8,5.43,2.0,3.63,1.7,5.75),ncol=2,byrow=T)
colnames(x)<-c("Off-flavour Score","Log Plate Count")
x

#Note that the 2-way table of ranks in the text is transposed to the usual
xtotab2(x)
CorrelationAnalysis(x)