Merge remote-tracking branch 'origin/master' into feature/1091

src/interface/FormBuilder.re

@@ -56,6 +56,13 @@ module ModelForm = {
         </h1>
         <p> {model.description |> ReasonReact.string} </p>
         <p> {model.author |> ReasonReact.string} </p>
+        <ForetoldComponents.Link
+          href={
+            "https://github.com/foretold-app/estiband/blob/master/src/models/"
+            ++ model.fileName
+          }>
+          {"Model Code" |> ReasonReact.string}
+        </ForetoldComponents.Link>
         {Combo.inputTypeValuePairs(formState.combo)
          |> E.A.fmap(((type_: TypeWithMetadata.t, value)) =>
               <div className="box-border">

src/interface/Prop.re

@@ -242,6 +242,7 @@ module Model = {
   type t = {
     name: string,
     id: string,
+    fileName: string,
     description: string,
     author: string,
     version: string,

src/models/EAFunds.re

@@ -220,6 +220,7 @@ module Interface = {
       name: "EA Funds: Donations & Payouts",
       description: "Calculate the payments and payouts of CEA Funds based on existing data.",
       version: "1.0.0",
+      fileName: "EAFunds.re",
       author: "Ozzie Gooen",
       inputTypes: [|
         TypeWithMetadata.make(

src/models/GlobalCatastrophe.re

@@ -28,6 +28,7 @@ module Interface = {
     Prop.{
       name: "Global Catastrophe",
       id: "global-catastrophe",
+      fileName: "GlobalCatastrophe.re",
       description: "The chances of having at least one catastrophe per year in the future, assuming no other catastrophe until then.",
       version: "1.0.0",
       author: "Ozzie Gooen",

src/models/Human.re

@@ -1,4 +1,5 @@
-let guesstimatorString = age => GuesstimatorDist.normal(80.0 -. age, 2.);
+let guesstimatorString = age =>
+  GuesstimatorDist.normal(72.0 -. age, 5.0 -. age *. 0.01);
 
 let makeI = (age: float) => {
   DistPlusIngredients.make(
@@ -29,6 +30,7 @@ module Interface = {
     Prop.{
       name: "Death Time",
       id: "human-lifespan",
+      fileName: "Human.re",
       description: "When will you die?",
       version: "1.0.0",
       author: "Ozzie Gooen",