predMSea <- function(p,rand=T) { with(p,{ if(rand) pW = rnorm(1, MSea, MSeaSigma) if(!rand) pW = MSea if(pW<0.001) pW = 0.001 return(pW) }) }
Add the following code to your website.
REMOVE THIS Copy to clipboard
For more information on customizing the embed code, read Embedding Snippets.