diff --git a/src/FSharp.Stats/Correlation.fs b/src/FSharp.Stats/Correlation.fs
index 0e17df27..003fbedb 100644
--- a/src/FSharp.Stats/Correlation.fs
+++ b/src/FSharp.Stats/Correlation.fs
@@ -3,7 +3,7 @@
 module Correlation =
 
     /// Pearson correlation 
-    let inline pearsonCorr (seq1:seq<'T>) (seq2:seq<'T>) : float =
+    let inline pearson (seq1:seq<'T>) (seq2:seq<'T>) : float =
         use e = seq1.GetEnumerator()
         use e2 = seq2.GetEnumerator()
         let zero = LanguagePrimitives.GenericZero< 'T > 
@@ -29,12 +29,12 @@ module Correlation =
         loop zero zero zero zero zero zero
     
     /// Spearman Correlation (with ranks)
-    let spearmanCorr array1 array2 =
+    let spearman array1 array2 =
     
         let spearRank1 = FSharp.Stats.Rank.rankFirst array1 
         let spearRank2 = FSharp.Stats.Rank.rankFirst array2
 
-        pearsonCorr spearRank1 spearRank2
+        pearson spearRank1 spearRank2
 
     /// Kendall Correlation Coefficient 
     let kendall (setA:_[]) (setB:_[]) =
@@ -76,4 +76,4 @@ module Correlation =
                 
             loop 0 1 0.0 0.0 0.0 0.0 0.0
 
-        kendallCorrFun (FSharp.Stats.Rank.rankFirst setA ) (FSharp.Stats.Rank.rankFirst setB )
\ No newline at end of file
+        kendallCorrFun (FSharp.Stats.Rank.rankFirst setA ) (FSharp.Stats.Rank.rankFirst setB )