Get the probability of transferring infection based on smear
| 1 | prob_trans(par, smear)
 | 
| par | vector of parameters "beta_0" and "beta_1" | 
| smear | (-1/+1) return(probability between 0 and 1) | 
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.