diff --git a/src/FSharp/FSharp-Portable136.fsproj b/src/FSharp/FSharp-Portable136.fsproj index 39a08a66..288ce7ed 100644 --- a/src/FSharp/FSharp-Portable136.fsproj +++ b/src/FSharp/FSharp-Portable136.fsproj @@ -46,6 +46,7 @@ + diff --git a/src/FSharp/FSharp-Portable47.fsproj b/src/FSharp/FSharp-Portable47.fsproj index 9a0f80b9..2ac81180 100644 --- a/src/FSharp/FSharp-Portable47.fsproj +++ b/src/FSharp/FSharp-Portable47.fsproj @@ -46,6 +46,7 @@ + diff --git a/src/FSharp/FSharp.fsproj b/src/FSharp/FSharp.fsproj index 66060cb6..5b8c6352 100644 --- a/src/FSharp/FSharp.fsproj +++ b/src/FSharp/FSharp.fsproj @@ -59,6 +59,7 @@ + diff --git a/src/FSharp/Statistics.fs b/src/FSharp/Statistics.fs new file mode 100644 index 00000000..c60b93ab --- /dev/null +++ b/src/FSharp/Statistics.fs @@ -0,0 +1,47 @@ +// +// 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. +// + +namespace MathNet.Numerics.Statistics + +open System + +[] +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