54 lines
1.5 KiB
ReasonML
54 lines
1.5 KiB
ReasonML
open ForetoldComponents.Base;
|
|
|
|
let data: DistributionTypes.xyShape = {
|
|
xs: [|1., 10., 10., 200., 250., 292., 330.|],
|
|
ys: [|0.0, 0.0, 0.1, 0.3, 0.5, 0.2, 0.1|],
|
|
};
|
|
|
|
let mixedDist =
|
|
GenericDistribution.make(
|
|
~generationSource=GuesstimatorString("mm(3, normal(5,1), [.5,.5])"),
|
|
~probabilityType=Pdf,
|
|
~domain=Complete,
|
|
~unit=Unspecified,
|
|
(),
|
|
)
|
|
|> GenericDistribution.renderIfNeeded(~sampleCount=3000);
|
|
|
|
let timeDist =
|
|
GenericDistribution.make(
|
|
~generationSource=GuesstimatorString("mm(3, normal(5,1), [.5,.5])"),
|
|
~probabilityType=Pdf,
|
|
~domain=Complete,
|
|
~unit=Time({zero: MomentRe.momentNow(), unit: `years}),
|
|
(),
|
|
)
|
|
|> GenericDistribution.renderIfNeeded(~sampleCount=3000);
|
|
|
|
let domainLimitedDist =
|
|
GenericDistribution.make(
|
|
~generationSource=GuesstimatorString("mm(3, normal(5,1), [.5,.5])"),
|
|
~probabilityType=Pdf,
|
|
~domain=RightLimited({xPoint: 6.0, excludingProbabilityMass: 0.3}),
|
|
~unit=Unspecified,
|
|
(),
|
|
)
|
|
|> GenericDistribution.renderIfNeeded(~sampleCount=3000);
|
|
|
|
let distributions = () =>
|
|
<div>
|
|
<div>
|
|
<h2> {"Basic Mixed Distribution" |> ReasonReact.string} </h2>
|
|
<GenericDistributionChart dist=mixedDist />
|
|
</div>
|
|
<div>
|
|
<h2> {"Time Distribution" |> ReasonReact.string} </h2>
|
|
<GenericDistributionChart dist=timeDist />
|
|
</div>
|
|
<div>
|
|
<h2> {"Domain Limited Distribution" |> ReasonReact.string} </h2>
|
|
<GenericDistributionChart dist=domainLimitedDist />
|
|
</div>
|
|
</div>;
|
|
|
|
let entry = EntryTypes.(entry(~title="Pdf", ~render=distributions)); |