Minor fixes
This commit is contained in:
parent
8c625a6803
commit
2a9b83b16c
|
@ -1,30 +1,87 @@
|
|||
// "mm(floor(uniform(30,35)), normal(50,20), [.25,.5])",
|
||||
// "mm(floor(normal(28,4)), normal(32,2), uniform(20,24), [.5,.2,.1])",
|
||||
let timeVector: TimeTypes.timeVector = {
|
||||
zero: MomentRe.momentNow(),
|
||||
unit: `years,
|
||||
};
|
||||
|
||||
let timeDist =
|
||||
DistPlusIngredients.make(
|
||||
~guesstimatorString="mm(floor(10 to 15), 10 to 11, [.9,.1])",
|
||||
~domain=Complete,
|
||||
~unit=DistTypes.TimeDistribution(timeVector),
|
||||
~unit=
|
||||
DistTypes.TimeDistribution({zero: MomentRe.momentNow(), unit: `years}),
|
||||
(),
|
||||
)
|
||||
);
|
||||
|
||||
let setup = dist =>
|
||||
dist
|
||||
|> DistPlusIngredients.toDistPlus(~sampleCount=5000, ~outputXYPoints=1000);
|
||||
|
||||
let distributions = () =>
|
||||
<div>
|
||||
<div>
|
||||
<h2> {"Basic Mixed Distribution" |> ReasonReact.string} </h2>
|
||||
{timeDist
|
||||
|> E.O.fmap(
|
||||
Distributions.DistPlus.T.scaleToIntegralSum(~intendedSum=1.0),
|
||||
<h2> {"Single-Discrete" |> ReasonReact.string} </h2>
|
||||
{setup(
|
||||
DistPlusIngredients.make(
|
||||
~guesstimatorString="floor(10 to 14)",
|
||||
~domain=Complete,
|
||||
(),
|
||||
),
|
||||
)
|
||||
|> E.O.React.fmapOrNull(distPlus => <DistPlusPlot distPlus />)}
|
||||
<h2> {"Simple Continuous" |> ReasonReact.string} </h2>
|
||||
</div>
|
||||
</div>;
|
||||
// |> E.O.React.fmapOrNull(distPlus => <DistPlusPlot distPlus />)}
|
||||
// )
|
||||
// ),
|
||||
// (),
|
||||
// ~domain=Complete,
|
||||
// ~guesstimatorString="(5 to 10)",
|
||||
// DistPlusIngredients.make(
|
||||
// {setup(
|
||||
// <h2> {"Continuous Only" |> ReasonReact.string} </h2>
|
||||
// |> E.O.React.fmapOrNull(distPlus => <DistPlusPlot distPlus />)}
|
||||
// )
|
||||
// ),
|
||||
// (),
|
||||
// ~domain=Complete,
|
||||
// ~guesstimatorString="floor(5 to 10)",
|
||||
// DistPlusIngredients.make(
|
||||
// {setup(
|
||||
// <h2> {"Discrete Only" |> ReasonReact.string} </h2>
|
||||
// |> E.O.React.fmapOrNull(distPlus => <DistPlusPlot distPlus />)}
|
||||
// )
|
||||
// ),
|
||||
// (),
|
||||
// ~domain=Complete,
|
||||
// ~guesstimatorString="mm(floor(10 to 15), 10 to 11, [.9,.1])",
|
||||
// DistPlusIngredients.make(
|
||||
// {setup(
|
||||
// <h2> {"Simple Mixed Distribution" |> ReasonReact.string} </h2>
|
||||
// |> E.O.React.fmapOrNull(distPlus => <DistPlusPlot distPlus />)}
|
||||
// )
|
||||
// ),
|
||||
// (),
|
||||
// }),
|
||||
// unit: `days,
|
||||
// zero: MomentRe.momentNow(),
|
||||
// DistTypes.TimeDistribution({
|
||||
// ~unit=
|
||||
// ~domain=Complete,
|
||||
// ~guesstimatorString="mm(floor(10 to 15), 10 to 11, [.9,.1])",
|
||||
// DistPlusIngredients.make(
|
||||
// {setup(
|
||||
// <h2> {"Complex Distribution Days" |> ReasonReact.string} </h2>
|
||||
// |> E.O.React.fmapOrNull(distPlus => <DistPlusPlot distPlus />)}
|
||||
// )
|
||||
// ),
|
||||
// (),
|
||||
// }),
|
||||
// unit: `years,
|
||||
// zero: MomentRe.momentNow(),
|
||||
// DistTypes.TimeDistribution({
|
||||
// ~unit=
|
||||
// ~domain=Complete,
|
||||
// ~guesstimatorString="mm(floor(10 to 15), 10 to 11, [.9,.1])",
|
||||
// DistPlusIngredients.make(
|
||||
// {setup(
|
||||
// <h2> {"Complex Distribution" |> ReasonReact.string} </h2>
|
||||
|
||||
let entry = EntryTypes.(entry(~title="Pdf", ~render=distributions));
|
|
@ -32,6 +32,7 @@ module IntegralChart = {
|
|||
let continuous =
|
||||
integral
|
||||
|> T.toContinuous
|
||||
|> E.O.bind(_, Distributions.Continuous.toLinear)
|
||||
|> E.O.fmap(Distributions.Continuous.getShape);
|
||||
let minX = T.minX(integral);
|
||||
let maxX = T.maxX(integral);
|
||||
|
|
|
@ -18,8 +18,7 @@ let toDistPlus =
|
|||
~outputXYPoints,
|
||||
(),
|
||||
);
|
||||
Js.log2("Line 21 with shape:", shape);
|
||||
let ss =
|
||||
let distPlus =
|
||||
shape
|
||||
|> E.O.fmap(
|
||||
Distributions.DistPlus.make(
|
||||
|
@ -29,6 +28,9 @@ let toDistPlus =
|
|||
~guesstimatorString=None,
|
||||
(),
|
||||
),
|
||||
)
|
||||
|> E.O.fmap(
|
||||
Distributions.DistPlus.T.scaleToIntegralSum(~intendedSum=1.0),
|
||||
);
|
||||
ss;
|
||||
distPlus;
|
||||
};
|
Loading…
Reference in New Issue
Block a user