diff --git a/src/DistBuilder.re b/src/DistBuilder.re index fd0b0cd2..fc5d891d 100644 --- a/src/DistBuilder.re +++ b/src/DistBuilder.re @@ -6,7 +6,9 @@ module FormConfig = [%lenses // domainType: string, // Complete, LeftLimited(...), RightLimited(...), LeftAndRightLimited(..., ...) xPoint: string, + xPoint2: string, excludingProbabilityMass: string, + excludingProbabilityMass2: string, // unitType: string, // UnspecifiedDistribution, TimeDistribution(zero, unit) zero: MomentRe.Moment.t, @@ -73,6 +75,8 @@ let make = () => { guesstimatorString: "mm(5 to 20, floor(normal(20,2)), [.5, .5])", domainType: "Complete", xPoint: "50.0", + xPoint2: "60.0", + excludingProbabilityMass2: "0.5", excludingProbabilityMass: "0.3", unitType: "UnspecifiedDistribution", zero: MomentRe.momentNow(), @@ -109,9 +113,9 @@ let make = () => { reform.state.values.excludingProbabilityMass |> float_of_string, }, { - xPoint: reform.state.values.xPoint |> float_of_string, + xPoint: reform.state.values.xPoint2 |> float_of_string, excludingProbabilityMass: - reform.state.values.excludingProbabilityMass |> float_of_string, + reform.state.values.excludingProbabilityMass2 |> float_of_string, }, ) | _ => Js.Exn.raiseError("domain is unknown") @@ -162,24 +166,35 @@ let make = () => { {"Complete" |> E.ste} - {"LeftLimited" |> E.ste} + {"Left Limited" |> E.ste} - {"RightLimited" |> E.ste} + {"Right Limited" |> E.ste} - {"LeftAndRightLimited" |> E.ste} + {"Left And Right Limited" |> E.ste} } /> -
+
+ +
+
+
+ +
+
+
@@ -191,10 +206,10 @@ let make = () => { E.ste}> e |> handleChange}> - {"UnspecifiedDistribution" |> E.ste} + {"Unspecified Distribution" |> E.ste} - {"TimeDistribution" |> E.ste} + {"Time Distribution" |> E.ste} @@ -210,7 +225,6 @@ let make = () => { value onChange={e => { e |> handleChange; - _ => (); }} />