Displaying 1 result from an estimated 1 matches for "fnintersect".
2003 Mar 06
0
loop avoiding on time interval intersects
...ntervals (regular or not)
dts2 <- dates(c("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...