From 16156fab14bde08eed111694cfd2049ce2400a1d Mon Sep 17 00:00:00 2001 From: Anthony Lloyd Date: Sun, 22 Sep 2024 15:39:37 +0100 Subject: [PATCH] fix single ErfInv --- Tests/SingleMatrixTests.fs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Tests/SingleMatrixTests.fs b/Tests/SingleMatrixTests.fs index 3db9e84..89b2625 100644 --- a/Tests/SingleMatrixTests.fs +++ b/Tests/SingleMatrixTests.fs @@ -1716,7 +1716,7 @@ let functions2 = test "functions2" { testUnary "Erf" (double >> erf >> single) Matrix.Erf testUnary "Erfc" (double >> erfc >> single) Matrix.Erfc - testUnary "ErfInv" (double >> (fun x -> if x = 1 then double.PositiveInfinity else erfinv(x)) >> single) Matrix.ErfInv + testUnary "ErfInv" (double >> (fun x -> if x = 1 then Double.PositiveInfinity else erfinv(x)) >> single) Matrix.ErfInv testUnary "ErfcInv" (double >> erfcinv >> single) Matrix.ErfcInv testUnary "CdfNorm" (double >> normcdf >> single) Matrix.CdfNorm testUnary "CdfNormInv" (double >> normcdfinv >> single) Matrix.CdfNormInv