Give isNormalised lower bound

2022-04-26 13:28:08 -04:00 · 2022-04-26 13:28:08 -04:00 · 7302a3ec10
commit 7302a3ec10
parent 350e420884
1 changed files with 1 additions and 1 deletions
--- a/packages/squiggle-lang/src/rescript/Distributions/PointSetDist/Continuous.res
+++ b/packages/squiggle-lang/src/rescript/Distributions/PointSetDist/Continuous.res
@ -271,7 +271,7 @@ module T = Dist({

 let isNormalized = (t: t): bool => {
  let areaUnderIntegral = t |> updateIntegralCache(Some(T.integral(t))) |> T.integralEndY
-  areaUnderIntegral -. 1. < 1e-7
+  areaUnderIntegral < 1. +. 1e-7 && areaUnderIntegral > 1. -. 1e-7
 }

 let downsampleEquallyOverX = (length, t): t =>