## Function R-Score

(

**r-score** < number-list-1 > < number-list-2 > )

Takes two sequences and returns the correlation coefficient.

Formula: Sum (Cross-product (Difference-list (number-list-1)

Difference-list (number-list-2)) /

(Sqrt (Sum-of-Squares (number-list-1) *

Sum-of-Squares (number-list-2)))).