R/results.R

Defines functions results

results <- function(x, mx, mn) {

   rv <- data.frame(x = seq_along(x), y = x)
   rv$is_maxima <- rv$x %in% mx
   rv$is_minima <- rv$x %in% mn

   return(rv)

}
mjfii/Local-Extrema documentation built on May 24, 2019, 2:07 a.m.