Time Overlap

Computes the length of overlap of time intervals.

Usage

overlap(x, ...)

# S4 method for class 'TimeIntervals'
overlap(x, calendar = NULL)

Arguments

x

A TimeIntervals object.

...

Currently not used.

calendar

A TimeScale object specifying the target calendar (see calendar()). If NULL (the default), rata die are returned.

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.

See also

Other tools: span(), start(), time(), window()

Author

N. Frerebeau

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