24 lines
798 B
ReasonML
24 lines
798 B
ReasonML
// "mm(floor(uniform(30,35)), normal(50,20), [.25,.5])",
|
|
let timeDist =
|
|
GenericDistribution.make(
|
|
~generationSource=
|
|
GuesstimatorString("mm(floor(normal(30,3)), normal(39,1), [.5,.5])"),
|
|
~probabilityType=Pdf,
|
|
~domain=Complete,
|
|
~unit=TimeDistribution({zero: MomentRe.momentNow(), unit: `days}),
|
|
(),
|
|
)
|
|
|> GenericDistribution.renderIfNeeded(~sampleCount=1000);
|
|
|
|
let distributions = () =>
|
|
<div>
|
|
<div>
|
|
<h2> {"Basic Mixed Distribution" |> ReasonReact.string} </h2>
|
|
{timeDist
|
|
|> E.O.bind(_, GenericDistribution.normalize)
|
|
|> E.O.React.fmapOrNull(dist => <GenericDistributionChart dist />)}
|
|
<h2> {"Simple Continuous" |> ReasonReact.string} </h2>
|
|
</div>
|
|
</div>;
|
|
|
|
let entry = EntryTypes.(entry(~title="Pdf", ~render=distributions)); |