File tree Expand file tree Collapse file tree 1 file changed +3
-3
lines changed
Expand file tree Collapse file tree 1 file changed +3
-3
lines changed Original file line number Diff line number Diff line change @@ -203,7 +203,7 @@ let betabinLogPmf:Int -> Float -> Float -> Int -> Float = lam n. lam a. lam b. l
203203let betabinPmf = lam n :Int . lam a : Float . lam b : Float . lam x :Int .
204204 exp (betabinLogPmf n a b x )
205205
206- -- Reciprocal (or log uniform ) distribution )
206+ -- Reciprocal (or log uniform ) distribution
207207let reciprocalSample : Float - > Float - > Float = lam a . lam b .
208208 let logSample = uniformContinuousSample (log a ) (log b ) in
209209 exp logSample
@@ -341,10 +341,10 @@ utest betabinSample 20 1. 1. with 0 using intRange 0 20 in
341341
342342-- Testing Reciprocal
343343utest reciprocalLogPdf 1. 2. 1.5 with - 0.038952187526 using _eqf in
344- utest reciprocalLogPdf 1. 2. 2.5 with negf inf using _eqf in
344+ utest reciprocalLogPdf 1. 2. 2.5 with negf inf using leqf in
345345utest exp (reciprocalLogPdf 4. 6. 5. ) with 0.493260692475 using _eqf in
346346utest reciprocalPdf 4. 6. 5. with 0.493260692475 using _eqf in
347- utest reciprocalSample 0.5 0.7 with 0. using floatRange 0.5 0.7 in
347+ utest reciprocalSample 0.5 0.7 with 0.5 using floatRange 0.5 0.7 in
348348
349349-- Testing seed
350350utest setSeed 0 ; uniformSample (); uniformSample ()
You can’t perform that action at this time.
0 commit comments