add flowmap image to readme

Author: mpadge

README.Rmd

@@ -44,4 +44,7 @@ f_ <- dat$flowvars
 summary (lm (dat$p ~ f_))
 ```
 
+The final flow model looks like this:
+
+![](./man/figures/flowmap.png)
 

README.md

@@ -26,6 +26,36 @@ Final result looks like this:
 ``` r
 x <- calc_layer_scales (data_dir, model = "final")
 #> ❯ Extracting final layers from full network:
+#> 
+  |                                                                            
+  |                                                                      |   0%
+  |                                                                            
+  |=====                                                                 |   7%
+  |                                                                            
+  |==========                                                            |  14%
+  |                                                                            
+  |===============                                                       |  21%
+  |                                                                            
+  |====================                                                  |  29%
+  |                                                                            
+  |=========================                                             |  36%
+  |                                                                            
+  |==============================                                        |  43%
+  |                                                                            
+  |===================================                                   |  50%
+  |                                                                            
+  |========================================                              |  57%
+  |                                                                            
+  |=============================================                         |  64%
+  |                                                                            
+  |==================================================                    |  71%
+  |                                                                            
+  |=======================================================               |  79%
+  |                                                                            
+  |============================================================          |  86%
+  |                                                                            
+  |=================================================================     |  93%
+  |                                                                            
   |======================================================================| 100%
 #> ✔ Extracted final layers from full network
 knitr::kable (x)
@@ -86,3 +116,7 @@ summary (lm (dat$p ~ f_))
 #> Multiple R-squared:  0.8594, Adjusted R-squared:  0.8393 
 #> F-statistic: 42.77 on 14 and 98 DF,  p-value: < 2.2e-16
 ```
+
+The final flow model looks like this:
+
+![](./man/figures/flowmap.png)

makefile

@@ -6,7 +6,7 @@ knith: $(LFILE).Rmd
 	echo "rmarkdown::render('$(LFILE).Rmd',output_file='$(LFILE).html')" | R --no-save -q
 
 knitr: $(LFILE).Rmd
-	echo "rmarkdown::render('$(LFILE).Rmd',rmarkdown::md_document(variant='markdown_github'))" | R --no-save -q
+	echo "rmarkdown::render('$(LFILE).Rmd',rmarkdown::md_document(variant='gfm'))" | R --no-save -q
 
 open: $(LFILE).html
 	xdg-open $(LFILE).html &