R/criterioIntersect.R

In fjbaron/acelerometria: A Tidy Framework For Accelerometry

criterioIntersect=function(df,interval1,interval2){
interval1 %>% intervalIntersect(interval2) %>% 
    transmute(from=fromNew,to=toNew) %>%
    interval2criterio(ts=df[["timestamp"]])
}