one CR comment; chasing kldivergence on mixeds bug

Value: [1e-10 to 1e-3]
This commit is contained in:
Quinn Dougherty 2022-05-25 13:10:31 -04:00
parent 249f58d3d8
commit cbaf4c150d
8 changed files with 107 additions and 113 deletions

View File

@ -3,7 +3,7 @@ open Expect
open TestHelpers open TestHelpers
open GenericDist_Fixtures open GenericDist_Fixtures
let klDivergence = DistributionOperation.Constructors.logScore_DistEstimateDistAnswer(~env) let klDivergence = DistributionOperation.Constructors.LogScore.distEstimateDistAnswer(~env)
// integral from low to high of 1 / (high - low) log(normal(mean, stdev)(x) / (1 / (high - low))) dx // integral from low to high of 1 / (high - low) log(normal(mean, stdev)(x) / (1 / (high - low))) dx
let klNormalUniform = (mean, stdev, low, high): float => let klNormalUniform = (mean, stdev, low, high): float =>
-.Js.Math.log((high -. low) /. Js.Math.sqrt(2.0 *. MagicNumbers.Math.pi *. stdev ** 2.0)) +. -.Js.Math.log((high -. low) /. Js.Math.sqrt(2.0 *. MagicNumbers.Math.pi *. stdev ** 2.0)) +.
@ -194,7 +194,7 @@ describe("combineAlongSupportOfSecondArgument0", () => {
let result = switch (answerWrapped, predictionWrapped) { let result = switch (answerWrapped, predictionWrapped) {
| (Ok(Dist(PointSet(Continuous(a)))), Ok(Dist(PointSet(Continuous(b))))) => | (Ok(Dist(PointSet(Continuous(a)))), Ok(Dist(PointSet(Continuous(b))))) =>
Some(combineAlongSupportOfSecondArgument(integrand, interpolator, a.xyShape, b.xyShape)) Some(combineAlongSupportOfSecondArgument(interpolator, integrand, a.xyShape, b.xyShape))
| _ => None | _ => None
} }
result result

View File

@ -262,22 +262,24 @@ module Constructors = {
let pdf = (~env, dist, f) => C.pdf(dist, f)->run(~env)->toFloatR let pdf = (~env, dist, f) => C.pdf(dist, f)->run(~env)->toFloatR
let normalize = (~env, dist) => C.normalize(dist)->run(~env)->toDistR let normalize = (~env, dist) => C.normalize(dist)->run(~env)->toDistR
let isNormalized = (~env, dist) => C.isNormalized(dist)->run(~env)->toBoolR let isNormalized = (~env, dist) => C.isNormalized(dist)->run(~env)->toBoolR
let logScore_DistEstimateDistAnswer = (~env, estimate, answer) => module LogScore = {
C.logScore_DistEstimateDistAnswer(estimate, answer)->run(~env)->toFloatR let distEstimateDistAnswer = (~env, estimate, answer) =>
let logScore_DistEstimateDistAnswerWithPrior = (~env, estimate, answer, prior) => C.LogScore.distEstimateDistAnswer(estimate, answer)->run(~env)->toFloatR
C.logScore_DistEstimateDistAnswerWithPrior(estimate, answer, prior)->run(~env)->toFloatR let distEstimateDistAnswerWithPrior = (~env, estimate, answer, prior) =>
let logScore_DistEstimateScalarAnswer = (~env, estimate, answer) => C.LogScore.distEstimateDistAnswerWithPrior(estimate, answer, prior)->run(~env)->toFloatR
C.logScore_DistEstimateScalarAnswer(estimate, answer)->run(~env)->toFloatR let distEstimateScalarAnswer = (~env, estimate, answer) =>
let logScore_DistEstimateScalarAnswerWithPrior = (~env, estimate, answer, prior) => C.LogScore.distEstimateScalarAnswer(estimate, answer)->run(~env)->toFloatR
C.logScore_DistEstimateScalarAnswerWithPrior(estimate, answer, prior)->run(~env)->toFloatR let distEstimateScalarAnswerWithPrior = (~env, estimate, answer, prior) =>
let logScore_ScalarEstimateDistAnswer = (~env, estimate, answer) => C.LogScore.distEstimateScalarAnswerWithPrior(estimate, answer, prior)->run(~env)->toFloatR
C.logScore_ScalarEstimateDistAnswer(estimate, answer)->run(~env)->toFloatR let scalarEstimateDistAnswer = (~env, estimate, answer) =>
let logScore_ScalarEstimateDistAnswerWithPrior = (~env, estimate, answer, prior) => C.LogScore.scalarEstimateDistAnswer(estimate, answer)->run(~env)->toFloatR
C.logScore_ScalarEstimateDistAnswerWithPrior(estimate, answer, prior)->run(~env)->toFloatR let scalarEstimateDistAnswerWithPrior = (~env, estimate, answer, prior) =>
let logScore_ScalarEstimateScalarAnswer = (~env, estimate, answer) => C.LogScore.scalarEstimateDistAnswerWithPrior(estimate, answer, prior)->run(~env)->toFloatR
C.logScore_ScalarEstimateScalarAnswer(estimate, answer)->run(~env)->toFloatR let scalarEstimateScalarAnswer = (~env, estimate, answer) =>
let logScore_ScalarEstimateScalarAnswerWithPrior = (~env, estimate, answer, prior) => C.LogScore.scalarEstimateScalarAnswer(estimate, answer)->run(~env)->toFloatR
C.logScore_ScalarEstimateScalarAnswerWithPrior(estimate, answer, prior)->run(~env)->toFloatR let scalarEstimateScalarAnswerWithPrior = (~env, estimate, answer, prior) =>
C.LogScore.scalarEstimateScalarAnswerWithPrior(estimate, answer, prior)->run(~env)->toFloatR
}
let toPointSet = (~env, dist) => C.toPointSet(dist)->run(~env)->toDistR let toPointSet = (~env, dist) => C.toPointSet(dist)->run(~env)->toDistR
let toSampleSet = (~env, dist, n) => C.toSampleSet(dist, n)->run(~env)->toDistR let toSampleSet = (~env, dist, n) => C.toSampleSet(dist, n)->run(~env)->toDistR
let fromSamples = (~env, xs) => C.fromSamples(xs)->run(~env)->toDistR let fromSamples = (~env, xs) => C.fromSamples(xs)->run(~env)->toDistR

View File

@ -60,42 +60,44 @@ module Constructors: {
let normalize: (~env: env, genericDist) => result<genericDist, error> let normalize: (~env: env, genericDist) => result<genericDist, error>
@genType @genType
let isNormalized: (~env: env, genericDist) => result<bool, error> let isNormalized: (~env: env, genericDist) => result<bool, error>
@genType module LogScore: {
let logScore_DistEstimateDistAnswer: (~env: env, genericDist, genericDist) => result<float, error> @genType
@genType let distEstimateDistAnswer: (~env: env, genericDist, genericDist) => result<float, error>
let logScore_DistEstimateDistAnswerWithPrior: ( @genType
~env: env, let distEstimateDistAnswerWithPrior: (
genericDist, ~env: env,
genericDist, genericDist,
DistributionTypes.DistributionOperation.scoreDistOrScalar, genericDist,
) => result<float, error> DistributionTypes.DistributionOperation.scoreDistOrScalar,
@genType ) => result<float, error>
let logScore_DistEstimateScalarAnswer: (~env: env, genericDist, float) => result<float, error> @genType
@genType let distEstimateScalarAnswer: (~env: env, genericDist, float) => result<float, error>
let logScore_DistEstimateScalarAnswerWithPrior: ( @genType
~env: env, let distEstimateScalarAnswerWithPrior: (
genericDist, ~env: env,
float, genericDist,
DistributionTypes.DistributionOperation.scoreDistOrScalar, float,
) => result<float, error> DistributionTypes.DistributionOperation.scoreDistOrScalar,
@genType ) => result<float, error>
let logScore_ScalarEstimateDistAnswer: (~env: env, float, genericDist) => result<float, error> @genType
@genType let scalarEstimateDistAnswer: (~env: env, float, genericDist) => result<float, error>
let logScore_ScalarEstimateDistAnswerWithPrior: ( @genType
~env: env, let scalarEstimateDistAnswerWithPrior: (
float, ~env: env,
genericDist, float,
DistributionTypes.DistributionOperation.scoreDistOrScalar, genericDist,
) => result<float, error> DistributionTypes.DistributionOperation.scoreDistOrScalar,
@genType ) => result<float, error>
let logScore_ScalarEstimateScalarAnswer: (~env: env, float, float) => result<float, error> @genType
@genType let scalarEstimateScalarAnswer: (~env: env, float, float) => result<float, error>
let logScore_ScalarEstimateScalarAnswerWithPrior: ( @genType
~env: env, let scalarEstimateScalarAnswerWithPrior: (
float, ~env: env,
float, float,
DistributionTypes.DistributionOperation.scoreDistOrScalar, float,
) => result<float, error> DistributionTypes.DistributionOperation.scoreDistOrScalar,
) => result<float, error>
}
@genType @genType
let toPointSet: (~env: env, genericDist) => result<genericDist, error> let toPointSet: (~env: env, genericDist) => result<genericDist, error>
@genType @genType

View File

@ -163,38 +163,40 @@ module Constructors = {
let fromSamples = (xs): t => FromSamples(xs) let fromSamples = (xs): t => FromSamples(xs)
let truncate = (dist, left, right): t => FromDist(ToDist(Truncate(left, right)), dist) let truncate = (dist, left, right): t => FromDist(ToDist(Truncate(left, right)), dist)
let inspect = (dist): t => FromDist(ToDist(Inspect), dist) let inspect = (dist): t => FromDist(ToDist(Inspect), dist)
let logScore_DistEstimateDistAnswer = (estimate, answer): t => FromDist( module LogScore = {
ToScore(LogScore(Score_Dist(answer), None)), let distEstimateDistAnswer = (estimate, answer): t => FromDist(
estimate, ToScore(LogScore(Score_Dist(answer), None)),
) estimate,
let logScore_DistEstimateDistAnswerWithPrior = (estimate, answer, prior): t => FromDist( )
ToScore(LogScore(Score_Dist(answer), Some(prior))), let distEstimateDistAnswerWithPrior = (estimate, answer, prior): t => FromDist(
estimate, ToScore(LogScore(Score_Dist(answer), Some(prior))),
) estimate,
let logScore_DistEstimateScalarAnswer = (estimate, answer): t => FromDist( )
ToScore(LogScore(Score_Scalar(answer), None)), let distEstimateScalarAnswer = (estimate, answer): t => FromDist(
estimate, ToScore(LogScore(Score_Scalar(answer), None)),
) estimate,
let logScore_DistEstimateScalarAnswerWithPrior = (estimate, answer, prior): t => FromDist( )
ToScore(LogScore(Score_Scalar(answer), Some(prior))), let distEstimateScalarAnswerWithPrior = (estimate, answer, prior): t => FromDist(
estimate, ToScore(LogScore(Score_Scalar(answer), Some(prior))),
) estimate,
let logScore_ScalarEstimateDistAnswer = (estimate, answer): t => FromFloat( )
ToScore(LogScore(Score_Dist(answer), None)), let scalarEstimateDistAnswer = (estimate, answer): t => FromFloat(
estimate, ToScore(LogScore(Score_Dist(answer), None)),
) estimate,
let logScore_ScalarEstimateDistAnswerWithPrior = (estimate, answer, prior): t => FromFloat( )
ToScore(LogScore(Score_Dist(answer), Some(prior))), let scalarEstimateDistAnswerWithPrior = (estimate, answer, prior): t => FromFloat(
estimate, ToScore(LogScore(Score_Dist(answer), Some(prior))),
) estimate,
let logScore_ScalarEstimateScalarAnswer = (estimate, answer): t => FromFloat( )
ToScore(LogScore(Score_Scalar(answer), None)), let scalarEstimateScalarAnswer = (estimate, answer): t => FromFloat(
estimate, ToScore(LogScore(Score_Scalar(answer), None)),
) estimate,
let logScore_ScalarEstimateScalarAnswerWithPrior = (estimate, answer, prior): t => FromFloat( )
ToScore(LogScore(Score_Scalar(answer), Some(prior))), let scalarEstimateScalarAnswerWithPrior = (estimate, answer, prior): t => FromFloat(
estimate, ToScore(LogScore(Score_Scalar(answer), Some(prior))),
) estimate,
)
}
let scalePower = (dist, n): t => FromDist(ToDist(Scale(#Power, n)), dist) let scalePower = (dist, n): t => FromDist(ToDist(Scale(#Power, n)), dist)
let scaleLogarithm = (dist, n): t => FromDist(ToDist(Scale(#Logarithm, n)), dist) let scaleLogarithm = (dist, n): t => FromDist(ToDist(Scale(#Logarithm, n)), dist)
let scaleLogarithmWithThreshold = (dist, n, eps): t => FromDist( let scaleLogarithmWithThreshold = (dist, n, eps): t => FromDist(

View File

@ -120,7 +120,7 @@ let combinePointwise = (
let interpolator = XYShape.XtoY.continuousInterpolator(t1.interpolation, extrapolation) let interpolator = XYShape.XtoY.continuousInterpolator(t1.interpolation, extrapolation)
combiner(fn, interpolator, t1.xyShape, t2.xyShape)->E.R2.fmap(x => combiner(interpolator, fn, t1.xyShape, t2.xyShape)->E.R2.fmap(x =>
make(~integralSumCache=combinedIntegralSum, x) make(~integralSumCache=combinedIntegralSum, x)
) )
} }

View File

@ -48,7 +48,7 @@ let combinePointwise = (
// TODO: does it ever make sense to pointwise combine the integrals here? // TODO: does it ever make sense to pointwise combine the integrals here?
// It could be done for pointwise additions, but is that ever needed? // It could be done for pointwise additions, but is that ever needed?
combiner(fn, XYShape.XtoY.discreteInterpolator, t1.xyShape, t2.xyShape)->E.R2.fmap(make) combiner(XYShape.XtoY.discreteInterpolator, fn, t1.xyShape, t2.xyShape)->E.R2.fmap(make)
} }
let reduce = ( let reduce = (
@ -221,15 +221,4 @@ module T = Dist({
let getMeanOfSquares = t => t |> shapeMap(XYShape.T.square) |> mean let getMeanOfSquares = t => t |> shapeMap(XYShape.T.square) |> mean
XYShape.Analysis.getVarianceDangerously(t, mean, getMeanOfSquares) XYShape.Analysis.getVarianceDangerously(t, mean, getMeanOfSquares)
} }
// let klDivergence = (prediction: t, answer: t) => {
// combinePointwise(
// ~fn=PointSetDist_Scoring.KLDivergence.integrand,
// prediction,
// answer,
// )->E.R2.fmap(integralEndY)
// }
// let logScoreWithPointResolution = (~prediction: t, ~answer: float, ~prior: option<t>) => {
// Error(Operation.NotYetImplemented)
// }
}) })

View File

@ -66,6 +66,7 @@ let combineAlgebraically = (op: Operation.convolutionOperation, t1: t, t2: t): t
} }
let combinePointwise = ( let combinePointwise = (
~combiner=XYShape.PointwiseCombination.combine,
~integralSumCachesFn: (float, float) => option<float>=(_, _) => None, ~integralSumCachesFn: (float, float) => option<float>=(_, _) => None,
~integralCachesFn: ( ~integralCachesFn: (
PointSetTypes.continuousShape, PointSetTypes.continuousShape,
@ -78,6 +79,7 @@ let combinePointwise = (
switch (t1, t2) { switch (t1, t2) {
| (Continuous(m1), Continuous(m2)) => | (Continuous(m1), Continuous(m2)) =>
Continuous.combinePointwise( Continuous.combinePointwise(
~combiner,
~integralSumCachesFn, ~integralSumCachesFn,
fn, fn,
m1, m1,
@ -85,6 +87,7 @@ let combinePointwise = (
)->E.R2.fmap(x => PointSetTypes.Continuous(x)) )->E.R2.fmap(x => PointSetTypes.Continuous(x))
| (Discrete(m1), Discrete(m2)) => | (Discrete(m1), Discrete(m2)) =>
Discrete.combinePointwise( Discrete.combinePointwise(
~combiner,
~integralSumCachesFn, ~integralSumCachesFn,
~fn, ~fn,
m1, m1,

View File

@ -322,8 +322,8 @@ module Zipped = {
module PointwiseCombination = { module PointwiseCombination = {
// t1Interpolator and t2Interpolator are functions from XYShape.XtoY, e.g. linearBetweenPointsExtrapolateFlat. // t1Interpolator and t2Interpolator are functions from XYShape.XtoY, e.g. linearBetweenPointsExtrapolateFlat.
let combine: ( let combine: (
(float, float) => result<float, Operation.Error.t>,
interpolator, interpolator,
(float, float) => result<float, Operation.Error.t>,
T.t, T.t,
T.t, T.t,
) => result<T.t, Operation.Error.t> = %raw(` ) => result<T.t, Operation.Error.t> = %raw(`
@ -332,7 +332,7 @@ module PointwiseCombination = {
// and interpolates the value on the other side, thus accumulating xs and ys. // and interpolates the value on the other side, thus accumulating xs and ys.
// This is written in raw JS because this can still be a bottleneck, and using refs for the i and j indices is quite painful. // This is written in raw JS because this can still be a bottleneck, and using refs for the i and j indices is quite painful.
function(fn, interpolator, t1, t2) { function(interpolator, fn, t1, t2) {
let t1n = t1.xs.length; let t1n = t1.xs.length;
let t2n = t2.xs.length; let t2n = t2.xs.length;
let outX = []; let outX = [];
@ -394,11 +394,11 @@ module PointwiseCombination = {
This is from an approach to kl divergence that was ultimately rejected. Leaving it in for now because it may help us factor `combine` out of raw javascript soon. This is from an approach to kl divergence that was ultimately rejected. Leaving it in for now because it may help us factor `combine` out of raw javascript soon.
*/ */
let combineAlongSupportOfSecondArgument0: ( let combineAlongSupportOfSecondArgument0: (
(float, float) => result<float, Operation.Error.t>,
interpolator, interpolator,
(float, float) => result<float, Operation.Error.t>,
T.t, T.t,
T.t, T.t,
) => result<T.t, Operation.Error.t> = (fn, interpolator, t1, t2) => { ) => result<T.t, Operation.Error.t> = (interpolator, fn, t1, t2) => {
let newYs = [] let newYs = []
let newXs = [] let newXs = []
let (l1, l2) = (E.A.length(t1.xs), E.A.length(t2.xs)) let (l1, l2) = (E.A.length(t1.xs), E.A.length(t2.xs))
@ -493,27 +493,23 @@ module PointwiseCombination = {
} }
// This function is used for klDivergence // This function is used for klDivergence
let combineAlongSupportOfSecondArgument: ( let combineAlongSupportOfSecondArgument: (
interpolator,
(float, float) => result<float, Operation.Error.t>, (float, float) => result<float, Operation.Error.t>,
T.t, T.t,
T.t, T.t,
) => result<T.t, Operation.Error.t> = (fn, prediction, answer) => { ) => result<T.t, Operation.Error.t> = (interpolator, fn, prediction, answer) => {
let combineWithFn = (answerX: float, i: int) => { let combineWithFn = (answerX: float, i: int) => {
let answerY = answer.ys[i] let answerY = answer.ys[i]
let predictionY = XtoY.linear(answerX, prediction) // let predictionY = XtoY.linear(answerX, prediction)
let predictionY = interpolator(prediction, i, answerX)
fn(predictionY, answerY) fn(predictionY, answerY)
} }
let newYsWithError = 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) E.A.R.firstErrorOrOpen(newYsWithError)->E.R2.fmap(ys => {xs: answer.xs, ys: ys})
let result = switch newYsOrError {
| Ok(a) => Ok({xs: answer.xs, ys: a})
| Error(b) => Error(b)
}
result
} }
let addCombine = (interpolator: interpolator, t1: T.t, t2: T.t): T.t => let addCombine = (interpolator: interpolator, t1: T.t, t2: T.t): T.t =>
combine((a, b) => Ok(a +. b), interpolator, t1, t2)->E.R.toExn( combine(interpolator, (a, b) => Ok(a +. b), t1, t2)->E.R.toExn(
"Add operation should never fail", "Add operation should never fail",
_, _,
) )