R/lowess.2.R

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, ...)
}
dakl/rdk documentation built on May 14, 2019, 3:30 p.m.