eco_interp <- function(x, x1, y1, x2, y2) { y = ((x - x1) * (y2 - y1) / (x2 - x1)) + y1 return(y) }
Add the following code to your website.
REMOVE THIS Copy to clipboard
For more information on customizing the embed code, read Embedding Snippets.