Computes the length of overlap of time intervals.
Usage
overlap(x, ...)
# S4 method for class 'TimeIntervals'
overlap(x, calendar = NULL, aggregate = TRUE)Arguments
- x
A
TimeIntervalsobject.- ...
Currently not used.
- calendar
A
TimeScaleobject specifying the target calendar (seecalendar()). IfNULL(the default), rata die are returned.- aggregate
A
logicalscalar: should disjoint intervals referring to the same event be aggregated?
Value
A symmetric numeric matrix of years.
Details
The overlap of two time intervals is a difference between the minimum value of the two upper boundaries and the maximum value of the two lower boundaries, plus 1.
Examples
## Create time intervals
int <- intervals(
start = c(625, 700, 1200, 1225, 1250, 500, 1000, 1200,
1325, 1375, 1200, 1300, 1375, 1275, 1325),
end = c(750, 825, 1250, 1275, 1325, 700, 1300, 1325,
1400, 1500, 1300, 1375, 1500, 1325, 1425),
calendar = CE()
)
## Plot intervals
plot(int) # Default calendar
## Overlap
overlap(int, calendar = CE())
#> I1 I2 I3 I4 I5 I6 I7 I8 I9 I10 I11 I12 I13 I14 I15
#> I1 125 51 0 0 0 76 0 0 0 0 0 0 0 0 0
#> I2 51 125 0 0 0 1 0 0 0 0 0 0 0 0 0
#> I3 0 0 50 26 1 0 51 51 0 0 51 0 0 0 0
#> I4 0 0 26 50 26 0 51 51 0 0 51 0 0 1 0
#> I5 0 0 1 26 75 0 51 76 1 0 51 26 0 51 1
#> I6 76 1 0 0 0 200 0 0 0 0 0 0 0 0 0
#> I7 0 0 51 51 51 0 300 101 0 0 101 1 0 26 0
#> I8 0 0 51 51 76 0 101 125 1 0 101 26 0 51 1
#> I9 0 0 0 0 1 0 0 1 75 26 0 51 26 1 76
#> I10 0 0 0 0 0 0 0 0 26 125 0 1 126 0 51
#> I11 0 0 51 51 51 0 101 101 0 0 100 1 0 26 0
#> I12 0 0 0 0 26 0 1 26 51 1 1 75 1 26 51
#> I13 0 0 0 0 0 0 0 0 26 126 0 1 125 0 51
#> I14 0 0 0 1 51 0 26 51 1 0 26 26 0 50 1
#> I15 0 0 0 0 1 0 0 1 76 51 0 51 51 1 100