tau.oz <- function(wave, du = 350) { return(du / 1000 * approx(oz.k$wave,oz.k$oz,wave, rule = 2)$y) }
Add the following code to your website.
REMOVE THIS Copy to clipboard
For more information on customizing the embed code, read Embedding Snippets.