R/match_times.R

In noamross/sodi: Individual-Based Modeling of Sudden Oak Death

match_times = function(sodi, times) {
  sodi_times = unique(sodi$Time)
  matched_times = sodi_times[approx(x = sodi_times, y = 1:length(sodi_times),
                            xout = times, method = "constant", rule = 2)$y]
  return(matched_times)
}