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}