> #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
     Off-flavour Score Log Plate Count
[1,]               1.4            6.36
[2,]               3.5            2.45
[3,]               2.8            5.43
[4,]               2.0            3.63
[5,]               1.7            5.75
> 
> #Note that the 2-way table of ranks in the text is transposed to the usual
> xtotab2(x)
  1 2 3 4 5
1 0 0 0 0 1
2 0 0 0 1 0
3 0 1 0 0 0
4 0 0 1 0 0
5 1 0 0 0 0
> CorrelationAnalysis(x)
$correlations
            [,1]        [,2]       [,3]       [,4]
[1,] -0.90000000 -0.08451543 -0.2000000  0.3779645
[2,]  0.08451543  0.92857143 -0.1690309  0.3194383
[3,] -0.20000000  0.16903085 -0.6000000 -0.7559289
[4,] -0.37796447  0.31943828  0.7559289 -0.4285714

$pvalues
           [,1]      [,2]       [,3]       [,4]
[1,] 0.04417134 0.8501067 0.65472085 0.39802472
[2,] 0.85010674 0.0378617 0.70545699 0.47505052
[3,] 0.65472085 0.7054570 0.17971249 0.09096895
[4,] 0.39802472 0.4750505 0.09096895 0.33790402

>