lowess.2 <- function(x, y, ...){ idx.keep <- intersect(which( is.finite(x)), which(is.finite(y))) x <- x[idx.keep] y <- y[idx.keep] lowess(x, y, ...) }
Add the following code to your website.
REMOVE THIS Copy to clipboard
For more information on customizing the embed code, read Embedding Snippets.