tweak: Add tests for combineAlongSupportOfSecondArgument

This commit is contained in:
NunoSempere 2022-05-06 11:45:11 -04:00
parent cc3db79a2a
commit 5dd272fb0c
3 changed files with 54 additions and 12 deletions

View File

@ -6,10 +6,10 @@ describe("kl divergence", () => {
let klDivergence = DistributionOperation.Constructors.klDivergence(~env)
exception KlFailed
test("of two uniforms is equal to the analytic expression", () => {
let lowAnswer = 2.3526e0
let highAnswer = 8.5382e0
let lowPrediction = 2.3526e0
let highPrediction = 1.2345e1
let lowAnswer = 0.0
let highAnswer = 1.0
let lowPrediction = 0.0
let highPrediction = 2.0
let answer =
uniformMakeR(lowAnswer, highAnswer)->E.R2.errMap(s => DistributionTypes.ArgumentError(s))
let prediction =
@ -19,6 +19,8 @@ describe("kl divergence", () => {
// integral along the support of the answer of answer.pdf(x) times log of prediction.pdf(x) divided by answer.pdf(x) dx
let analyticalKl = Js.Math.log((highPrediction -. lowPrediction) /. (highAnswer -. lowAnswer))
let kl = E.R.liftJoin2(klDivergence, prediction, answer)
Js.Console.log2("Analytical: ", analyticalKl)
Js.Console.log2("Computed: ", kl)
switch kl {
| Ok(kl') => kl'->expect->toBeCloseTo(analyticalKl)
| Error(err) => {
@ -32,7 +34,7 @@ describe("kl divergence", () => {
let mean1 = 4.0
let mean2 = 1.0
let stdev1 = 1.0
let stdev2 = 1.0
let stdev2 = 4.0
let prediction =
normalMakeR(mean1, stdev1)->E.R2.errMap(s => DistributionTypes.ArgumentError(s))
@ -42,6 +44,10 @@ describe("kl divergence", () => {
stdev1 ** 2.0 /. 2.0 /. stdev2 ** 2.0 +.
(mean1 -. mean2) ** 2.0 /. 2.0 /. stdev2 ** 2.0 -. 0.5
let kl = E.R.liftJoin2(klDivergence, prediction, answer)
Js.Console.log2("Analytical: ", analyticalKl)
Js.Console.log2("Computed: ", kl)
switch kl {
| Ok(kl') => kl'->expect->toBeCloseTo(analyticalKl)
| Error(err) => {
@ -51,3 +57,33 @@ describe("kl divergence", () => {
}
})
})
describe("combine along support test", () => {
let combineAlongSupportOfSecondArgument = XYShape.PointwiseCombination.combineAlongSupportOfSecondArgument
let lowAnswer = 0.0
let highAnswer = 1.0
let lowPrediction = -1.0
let highPrediction = 2.0
let answer =
uniformMakeR(lowAnswer, highAnswer)->E.R2.errMap(s => DistributionTypes.ArgumentError(s))
let prediction =
uniformMakeR(lowPrediction, highPrediction)->E.R2.errMap(s => DistributionTypes.ArgumentError(
s,
))
let answerWrapped = E.R.fmap(a => run(FromDist(ToDist(ToPointSet), a)), answer)
let predictionWrapped = E.R.fmap(a => run(FromDist(ToDist(ToPointSet), a)), prediction)
let interpolator = XYShape.XtoY.continuousInterpolator(#Stepwise, #UseZero)
let integrand = PointSetDist_Scoring.KLDivergence.integrand
let result = switch (answerWrapped, predictionWrapped) {
| (Ok(Dist(PointSet(Continuous(a)))), Ok(Dist(PointSet(Continuous(b))))) =>
Some(combineAlongSupportOfSecondArgument(integrand, interpolator, a.xyShape, b.xyShape))
| _ => None
}
test("combine along support test", _ => {
Js.Console.log2("combineAlongSupportOfSecondArgument", result)
false->expect->toBe(true)
})
})

View File

@ -10,6 +10,6 @@ module KLDivergence = {
Error(Operation.NegativeInfinityError)
} else {
let quot = predictionElement /. answerElement
quot < 0.0 ? Error(Operation.ComplexNumberError) : Ok(answerElement *. logFn(quot))
quot < 0.0 ? Error(Operation.ComplexNumberError) : Ok(-.answerElement *. logFn(quot))
}
}

View File

@ -391,7 +391,7 @@ module PointwiseCombination = {
`)
// This function is used for kl divergence
let combineAlongSupportOfSecondArgument: (
let combineAlongSupportOfSecondArgument0: (
(float, float) => result<float, Operation.Error.t>,
interpolator,
T.t,
@ -489,12 +489,12 @@ module PointwiseCombination = {
result
}
let combineAlongSupportOfSecondArgument2: (
let combineAlongSupportOfSecondArgument: (
(float, float) => result<float, Operation.Error.t>,
interpolator,
T.t,
T.t,
) => result<T.t, Operation.Error.t> = (fn, prediction, answer) => {
let newXs = answer.xs
) => result<T.t, Operation.Error.t> = (fn, interpolator, prediction, answer) => {
let combineWithFn = (x: float, i: int) => {
let answerX = x
let answerY = answer.ys[i]
@ -506,9 +506,15 @@ module PointwiseCombination = {
}
result
}
let newYs = Js.Array.mapi((x, i) => combineWithFn(x, i), answer.xs)
let newYsWithError = Js.Array.mapi((x, i) => combineWithFn(x, i), answer.xs)
let newYsOrError = E.A.R.firstErrorOrOpen(newYsWithError)
let result = switch newYsOrError {
| Ok(a) => Ok({xs: answer.xs, ys: a})
| Error(b) => Error(b)
}
T.filterOkYs(newXs, newYs)->Ok
// T.filterOkYs(newXs, newYs)->Ok
result
}
let addCombine = (interpolator: interpolator, t1: T.t, t2: T.t): T.t =>