R/calcula_intervalo.R

calcula_intervalo <- function(evento, t_inicio, t_evento, t_fin, scale=1) {
  time <- ifelse(evento, as.numeric(t_evento - t_inicio),
                 as.numeric(t_fin - t_inicio))
  time / scale
}
felasa/fdtools documentation built on May 16, 2019, 12:46 p.m.