tau.r <- function(wave) { wavemum <- wave * 1.e-3 return(8.524e-3 / wavemum^4 + 9.63e-5 / wavemum^6 + 1.1e-7 / wavemum^8) }
Add the following code to your website.
REMOVE THIS Copy to clipboard
For more information on customizing the embed code, read Embedding Snippets.