int1 <- interval(as.Date("2020-01-10"), as.Date("2020-02-01"))
int2 <- interval(as.Date("2023-05-02"), as.Date("2023-06-03"))
phint_start(int1)
phint_end(int1)
# Holes have no endpoints; disjoint phintervals have multiple endpoints
hole <- phint_intersect(int1, int2)
disjoint <- phint_union(int1, int2)
phint_start(c(hole, disjoint))
phint_starts(c(hole, disjoint))
phint_end(c(hole, disjoint))
phint_ends(c(hole, disjoint))
# phint_start() and phint_end() return the minimum and maximum endpoints
negative <- interval(as.Date("1980-01-01"), as.Date("1979-12-27"))
phint_start(negative)
phint_end(negative)
Run the code above in your browser using DataLab