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

Vocabulary
math.statistics

Definition

USING: kernel math sequences ;

IN: math.statistics

: ((r)) ( mean(x) mean(y) {x} {y} -- (r) )
    0 [ [ [ pick ] dip swap - ] bi@ * + ] 2reduce 2nip ;