Give isNormalised lower bound

This commit is contained in:
Sam Nolan 2022-04-26 13:28:08 -04:00
parent 350e420884
commit 7302a3ec10

View File

@ -271,7 +271,7 @@ module T = Dist({
let isNormalized = (t: t): bool => { let isNormalized = (t: t): bool => {
let areaUnderIntegral = t |> updateIntegralCache(Some(T.integral(t))) |> T.integralEndY 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 => let downsampleEquallyOverX = (length, t): t =>