mpod <- function(opticalDensity) { mp <- opticalDensity * MPOD[, 2] / max(MPOD[, 2]) return(mp) }
Add the following code to your website.
REMOVE THIS Copy to clipboard
For more information on customizing the embed code, read Embedding Snippets.