Displaying 1 result from an estimated 1 matches for "overlp".
Did you mean:
overlap
2003 Mar 06
0
loop avoiding on time interval intersects
...("01/01/2003", "01/03/2003", "01/03/2003", "01/06/2003"))
tms2 <- times(c("0:0:0", "0:0:0", "0:0:0", "0:0:0"))
interv <- array(chron(dates = dts2, times = tms2),c(2,2))
fnIntersect <- function(events,interv)
{
overlp <- numeric()
n <- dim(events)[1]
m <- dim(interv)[1]
# perform the query to get the overlapping elapsed time between the events
and the intervals
# returns a vector with the time intervals and the sum of the intersecting
times from the 'event' input
# intervals: +--------+------...