Merge pull request #388 from quantified-uncertainty/issue387
Input validation for cauchy
This commit is contained in:
commit
1ef766a6c8
|
@ -86,9 +86,10 @@ module Exponential = {
|
||||||
|
|
||||||
module Cauchy = {
|
module Cauchy = {
|
||||||
type t = cauchy
|
type t = cauchy
|
||||||
let make = (local, scale): result<symbolicDist, string> => Ok(
|
let make = (local, scale): result<symbolicDist, string> =>
|
||||||
#Cauchy({local: local, scale: scale}),
|
scale > 0.0
|
||||||
)
|
? Ok(#Cauchy({local: local, scale: scale}))
|
||||||
|
: Error("Cauchy distribution scale parameter must larger than 0.")
|
||||||
let pdf = (x, t: t) => Jstat.Cauchy.pdf(x, t.local, t.scale)
|
let pdf = (x, t: t) => Jstat.Cauchy.pdf(x, t.local, t.scale)
|
||||||
let cdf = (x, t: t) => Jstat.Cauchy.cdf(x, t.local, t.scale)
|
let cdf = (x, t: t) => Jstat.Cauchy.cdf(x, t.local, t.scale)
|
||||||
let inv = (p, t: t) => Jstat.Cauchy.inv(p, t.local, t.scale)
|
let inv = (p, t: t) => Jstat.Cauchy.inv(p, t.local, t.scale)
|
||||||
|
|
Loading…
Reference in New Issue
Block a user