Statistics: add Statistics F# module for higher order functions

src/FSharp/FSharp-Portable136.fsproj

@@ -46,6 +46,7 @@
   </ItemGroup>
   <ItemGroup>
     <Compile Include="AssemblyInfo.fs" />
+    <Compile Include="Statistics.fs" />
     <Compile Include="Random.fs" />
     <Compile Include="Distributions.fs" />
     <Compile Include="LinearAlgebra.Vector.fs" />

src/FSharp/FSharp-Portable47.fsproj

@@ -46,6 +46,7 @@
   </ItemGroup>
   <ItemGroup>
     <Compile Include="AssemblyInfo.fs" />
+    <Compile Include="Statistics.fs" />
     <Compile Include="Random.fs" />
     <Compile Include="Distributions.fs" />
     <Compile Include="LinearAlgebra.Vector.fs" />

src/FSharp/FSharp.fsproj

@@ -59,6 +59,7 @@
   </PropertyGroup>
   <ItemGroup>
     <Compile Include="AssemblyInfo.fs" />
+    <Compile Include="Statistics.fs" />
     <Compile Include="Random.fs" />
     <Compile Include="Distributions.fs" />
     <Compile Include="LinearAlgebra.Vector.fs" />

src/FSharp/Statistics.fs

@@ -0,0 +1,47 @@
+// <copyright file="Statistics.fs" company="Math.NET">
+// Math.NET Numerics, part of the Math.NET Project
+// http://numerics.mathdotnet.com
+// http://github.com/mathnet/mathnet-numerics
+// http://mathnetnumerics.codeplex.com
+//
+// Copyright (c) 2009-2014 Math.NET
+//
+// Permission is hereby granted, free of charge, to any person
+// obtaining a copy of this software and associated documentation
+// files (the "Software"), to deal in the Software without
+// restriction, including without limitation the rights to use,
+// copy, modify, merge, publish, distribute, sublicense, and/or sell
+// copies of the Software, and to permit persons to whom the
+// Software is furnished to do so, subject to the following
+// conditions:
+//
+// The above copyright notice and this permission notice shall be
+// included in all copies or substantial portions of the Software.
+//
+// THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
+// EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES
+// OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
+// NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT
+// HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY,
+// WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING
+// FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR
+// OTHER DEALINGS IN THE SOFTWARE.
+// </copyright>
+
+namespace MathNet.Numerics.Statistics
+
+open System
+
+[<CompilationRepresentation(CompilationRepresentationFlags.ModuleSuffix)>]
+module Statistics =
+
+    let private tofs (f:Func<_,_>) = fun a -> f.Invoke(a)
+
+    let quantileF (data : float seq) = Statistics.QuantileFunc(data) |> tofs
+    let quantileCustomF (data : float seq) definition = Statistics.QuantileCustomFunc(data, definition) |> tofs
+    let percentileF (data : float seq) = Statistics.PercentileFunc(data) |> tofs
+    let orderStatisticF (data : float seq) = Statistics.OrderStatisticFunc(data) |> tofs
+    let quantileRankF (data : float seq) = Statistics.QuantileRankFunc(data) |> tofs
+    let quantileRankCustomF (data : float seq) definition = Statistics.QuantileRankFunc(data, definition) |> tofs
+    let empiricalCdfF (data : float seq) = Statistics.EmpiricalCDFFunc(data) |> tofs
+    let empiricalInvCdfF (data : float seq) = Statistics.EmpiricalInvCDFFunc(data) |> tofs