# Count spans
y2000 <- interval(as.Date("2000-01-01"), as.Date("2001-01-01"))
y2025 <- interval(as.Date("2025-01-01"), as.Date("2025-01-01"))
n_spans(c(
phint_union(y2000, y2025),
phint_intersect(y2000, y2025),
y2000, y2025
))
Run the code above in your browser using DataLab