24 lines
793 B
ReasonML
24 lines
793 B
ReasonML
// "mm(floor(uniform(30,35)), normal(50,20), [.25,.5])",
|
|
let timeDist =
|
|
DistPlusIngredients.make(
|
|
~guesstimatorString="mm(floor(normal(30,2)), normal(39,1), [.5,.5])",
|
|
~domain=Complete,
|
|
~unit=TimeDistribution({zero: MomentRe.momentNow(), unit: `days}),
|
|
(),
|
|
)
|
|
|> DistPlusIngredients.toDistPlus(~sampleCount=1000);
|
|
|
|
let distributions = () =>
|
|
<div>
|
|
<div>
|
|
<h2> {"Basic Mixed Distribution" |> ReasonReact.string} </h2>
|
|
{timeDist
|
|
|> E.O.fmap(
|
|
Distributions.DistPlus.T.scaleToIntegralSum(~intendedSum=1.0),
|
|
)
|
|
|> E.O.React.fmapOrNull(distPlus => <DistPlusPlot distPlus />)}
|
|
<h2> {"Simple Continuous" |> ReasonReact.string} </h2>
|
|
</div>
|
|
</div>;
|
|
|
|
let entry = EntryTypes.(entry(~title="Pdf", ~render=distributions)); |