我有多个时间间隔（int1,2,3,4），我想计算所有间隔之间的整体重叠的总持续时间（int5的持续时间）。
诠释1：.... || ----- |
诠释2：............. | ----- |
int 3：........... | ------ |
诠释4：.................................. | ----- |
诠释5：.... | -------- | ...... | ---------- |
（整数5：所有间隔的重叠持续时间）
示例数据：
int1 <- interval(ymd("2001-01-01"), ymd("2002-01-01"))
int2 <- interval(ymd("2002-06-01"), ymd("2002-06-01"))
int3 <- interval(ymd("2004-06-01"), ymd("2004-06-01"))
int4 <- interval(ymd("2004-010-01"), ymd("2004-12-01"))