Makes a figure of yields of FISH/CARD-FISH for intertidal sediments, analogous to Fig 2
| 1 2 |   intertidal_yield_fig(corrected_seds, corrected_sw,
    yaxsize = 7, colors = brewer.pal(n = 5, name = "RdBu"))
 | 
| corrected_seds | Data frame of sediments data | 
| corrected_sw | Data frame of seawater data | 
| yaxsize | Font size for yaxis font | 
| colors | Vector of colors for box fill, should have length 5 | 
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.