NB. Suzuki Giichiro apr/2010 NB. Spearman's order coefficient rank=:3 :'(>:i.#y)(/:y)}y' spcor=:3 :0 q=.+/*:-/r=.rank"1 y 1-12*q%(#y)*n*<:*:n=.{:$y ) L=:({.R)/:{:R R=:rank"1 Z X=:50 60 65 75 35 80 70 Z=:X,:Y=:40 35 80 55 25 70 45