(r) ( mean(x) mean(y) {x} {y} sx sy -- r )

Vocabulary
math.statistics

Definition

USING: kernel math sequences ;

IN: math.statistics

: (r) ( mean(x) mean(y) {x} {y} sx sy -- r )
    * recip [ [ ((r)) ] keep length 1 - / ] dip * ;