@explorable-viz/fluid 0.7.64 → 0.7.65

package/dist/fluid/fluid/example/text-viz/explainable-table.fld

@@ -1,7 +0,0 @@
-[
-    { scenario: "SSP1-1.9", bestEstNear: 1.5, lowNear: 1.2, highNear: 1.7, bestEstMid: 1.6, lowMid: 1.2, highMid: 2.0, bestEstLate: 1.4, lowLate: 1.0, highLate: 1.8},
-    { scenario: "SSP1-2.6", bestEstNear: 1.5, lowNear: 1.2, highNear: 1.8, bestEstMid: 1.7, lowMid: 1.3, highMid: 2.2, bestEstLate: 1.8, lowLate: 1.3, highLate: 2.4},
-    { scenario: "SSP2-4.5", bestEstNear: 1.5, lowNear: 1.2, highNear: 1.8, bestEstMid: 2.0, lowMid: 1.6, highMid: 2.5, bestEstLate: 2.7, lowLate: 2.1, highLate: 3.5},
-    { scenario: "SSP3-7.0", bestEstNear: 1.5, lowNear: 1.2, highNear: 1.8, bestEstMid: 2.1, lowMid: 1.7, highMid: 2.6, bestEstLate: 3.6, lowLate: 2.8, highLate: 4.6},
-    { scenario: "SSP5-8.5", bestEstNear: 1.6, lowNear: 1.3, highNear: 1.9, bestEstMid: 2.4, lowMid: 1.9, highMid: 3.0, bestEstLate: 4.4, lowLate: 3.3, highLate: 5.7}
-]

package/dist/fluid/fluid/example/text-viz/fake-probabilities.fld

@@ -1,3 +0,0 @@
-[
-    { model: "SSP1-1.9", probability: 0.92 }
-]

package/dist/fluid/fluid/example/text-viz/figure-spm-4.fld

@@ -1,42 +0,0 @@
-let getByX x table = fromSome (findWithKey "x" x table);
-
-let referToBar bar = "the bar representing scenario " ++ bar.x ++ " has a z value of " ++ (numToStr (head bar.bars).z);
-
-let stackedBarHeight stackedBar = sum [ bar.z | bar <- stackedBar.bars ];
-
-let getTotal (BarChart record) = fromSome (findWithKey "x" "Total" record.stackedBars);
-let getCO2 (BarChart record)= fromSome (findWithKey "x" "CO2" record.stackedBars);
-let getNonCO2 (BarChart record) = fromSome (findWithKey "x" "Non-CO2" record.stackedBars);
-
-
-let barHeight (BarChart bc) x =
-    let bar = fromSome (findWithKey "x" x bc.stackedBars)
-    in sum [ segment.z | segment <- bar.bars ];
-
-let explainBars bars x = 
-    if length bars == length (filter (fun bar -> bar.x == x) bars)
-    then "(°C; " ++ x ++ " bar)"
-    else error "absurd";
-
-let mkBarChart scenName table = 
-    BarChart {
-        caption: "Example bar chart for scenario " ++ scenName,
-        size: { width: 275, height: 185 },
-        stackedBars: map (fun record -> { x: record.type, bars: [ { y: "emissions", z: record.emissions } ]}) table
-    };
-
-let getHeight bar offset = (head bar.bars).z + offset;
-
-let ssp119 = mkBarChart "SSP1-1.9" ssp119Source;
-    ssp245 = mkBarChart "SSP2-4.5" ssp245Source;
-    total = map getTotal [ssp119, ssp245];
-    co2 = map getCO2 [ssp119, ssp245];
-    nonco2 = map getNonCO2 [ssp119, ssp245];
-    meanTotal = (sum (map stackedBarHeight total)) / (length total)
-in MultiView {
-    leftBarChart: ssp119,
-    rightBarChart: ssp245,
-    explanation:
-        LinkedText [ "Within each scenario bar plot, the bars represent: total warming ", explainBars total "Total",
-                     ", warming contributions from CO2 ", explainBars co2 "CO2", " and from non-CO2 GHG's ", explainBars nonco2 "Non-CO2"]
-}

package/dist/fluid/fluid/example/text-viz/left-barchart-table.fld

@@ -1,5 +0,0 @@
-[
-    { type: "Total", emissions: 1.35 }, 
-    { type: "CO2", emissions: 1.1 },
-    { type: "Non-CO2", emissions: 0.41 }
-]

package/dist/fluid/fluid/example/text-viz/likelihoods.fld

@@ -1,9 +0,0 @@
-[
-  { prob: 0.99, msg: "virtually certain" },
-  { prob: 0.9, msg: "very likely"},
-  { prob: 0.66, msg: "likely"},
-  { prob: 0.33, msg: "about as likely as not"},
-  { prob: 0.1, msg: "unlikely"},
-  { prob: 0.01, msg: "very unlikely"},
-  { prob: 0.0, msg: "exceptionally unlikely"}
-]

package/dist/fluid/fluid/example/text-viz/right-barchart-table.fld

@@ -1,5 +0,0 @@
-[
-    { type: "Total", emissions: 2.7 },
-    { type: "CO2", emissions: 2.1 },
-    { type: "Non-CO2", emissions: 0.6 }
-]

package/dist/fluid/fluid/example/text-viz/table-spm-1.fld

@@ -1,30 +0,0 @@
-let newDataTable offset = map (fun s -> { scenario: s.scenario, beNear: s.bestEstNear + offset, nearRange: (s.lowNear, s.highNear), beMid: s.bestEstMid, midRange: (s.lowMid, s.highMid), beLong: s.bestEstLate, longRange: (s.lowLate, s.highLate)}) tableData;
-
-let getByScenario data scenario = fromSome (findWithKey "scenario" scenario data);
-
-let probAsText = likelihoodMap likelihoods;
-
-let mean list = (sum list) / (length list); 
-
-let calcLikelihood (min, max) target = 
-    if max < target
-    then 0.05
-    else if target <= min
-    then 0.95
-    else (target - min)/(max - min);
-
-let realTable = newDataTable 0;
-    getByScenario' = getByScenario realTable;
-    ssp119 = getByScenario' "SSP1-1.9";
-    ssp245 = getByScenario' "SSP2-4.5"
-in MultiView {
-    explanation119:
-        LinkedText [ "Under the low GHG emissions scenario (SSP1-1.9), global warming of 2°C would ",
-                      probAsText (calcLikelihood ssp119.longRange 2.0), 
-                     " be exceeded at the end of the 21st century." ],
-    explanation245:
-        LinkedText [ "Under the intermediate GHG emissions scenario (SSP2-4.5), global warming of 2°C would ",
-                     probAsText (calcLikelihood ssp245.longRange 2.0),
-                     " be exceeded by the end of the 21st century. In the mid-term period (2041-2060)",
-                     " crossing the 2°C mark is ", probAsText (calcLikelihood ssp245.midRange 2.0), "to occur" ]
-    }