quantified.uncertainty/squiggle
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Minor CR comments

Browse Source 
Value: [1e-6 to 1e-3]
This commit is contained in:
Quinn Dougherty 2022-05-16 15:39:40 -04:00
parent 81b2c74ac8
commit 1d2bb556de
1 changed files with 5 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
packages/squiggle-lang/src/rescript/Distributions/PointSetDist/PointSetDist_Scoring.res
View File

@ -15,9 +15,6 @@ module KLDivergence = {
}
}
/*
*/
module LogScoreWithPointResolution = {
let logFn = Js.Math.log
let score = (
@ -25,21 +22,21 @@ module LogScoreWithPointResolution = {
~predictionPdf: float => float,
~answer: float,
): result<float, Operation.Error.t> => {
let numer = answer->predictionPdf
if numer < 0.0 {
let numerator = answer->predictionPdf
if numerator < 0.0 {
Operation.ComplexNumberError->Error
} else if numer == 0.0 {
} else if numerator == 0.0 {
infinity->Ok
} else {
-.(
switch priorPdf {
| None => numer->logFn
| None => numerator->logFn
| Some(f) => {
let priorDensityOfAnswer = f(answer)
if priorDensityOfAnswer == 0.0 {
neg_infinity
} else {
(numer /. priorDensityOfAnswer)->logFn
(numerator /. priorDensityOfAnswer)->logFn
}
}
}