InfluentialPoints.com
Biology, images, analysis, design...
 Use/Abuse Principles How To Related
"It has long been an axiom of mine that the little things are infinitely the most important" (Sherlock Holmes)

Just a note

Walsh averages and median difference:

Gives something like this:

> # obtain & display Walsh averages > (wa=outer(x,y,'+')/2) [,1] [,2] [,3] [,4] [,5] [,6] [,7] [,8] [,9] [1,] 3.0 4.0 4.5 6.0 6.5 7.0 7.5 7.5 8.0 [2,] 4.0 5.0 5.5 7.0 7.5 8.0 8.5 8.5 9.0 [3,] 4.5 5.5 6.0 7.5 8.0 8.5 9.0 9.0 9.5 [4,] 6.0 7.0 7.5 9.0 9.5 10.0 10.5 10.5 11.0 [5,] 6.5 7.5 8.0 9.5 10.0 10.5 11.0 11.0 11.5 [6,] 7.0 8.0 8.5 10.0 10.5 11.0 11.5 11.5 12.0 [7,] 7.5 8.5 9.0 10.5 11.0 11.5 12.0 12.0 12.5 [8,] 7.5 8.5 9.0 10.5 11.0 11.5 12.0 12.0 12.5 [9,] 8.0 9.0 9.5 11.0 11.5 12.0 12.5 12.5 13.0 > # convert to triangular matrix > wa[lower.tri(wa)]=NA > # display triangular matrix > wa [,1] [,2] [,3] [,4] [,5] [,6] [,7] [,8] [,9] [1,] 3 4 4.5 6.0 6.5 7.0 7.5 7.5 8.0 [2,] NA 5 5.5 7.0 7.5 8.0 8.5 8.5 9.0 [3,] NA NA 6.0 7.5 8.0 8.5 9.0 9.0 9.5 [4,] NA NA NA 9.0 9.5 10.0 10.5 10.5 11.0 [5,] NA NA NA NA 10.0 10.5 11.0 11.0 11.5 [6,] NA NA NA NA NA 11.0 11.5 11.5 12.0 [7,] NA NA NA NA NA NA 12.0 12.0 12.5 [8,] NA NA NA NA NA NA NA 12.0 12.5 [9,] NA NA NA NA NA NA NA NA 13.0 > # give its median > median(wa, na.rm=TRUE) [1] 9