# Convert Interval vector
years <- interval(
start = as.Date(c("2021-01-01", "2023-01-01")),
end = as.Date(c("2022-01-01", "2024-01-01"))
)
as_phinterval(years)
# Negative intervals are standardized
negative <- interval(as.Date("2000-10-11"), as.Date("2000-10-01"))
as_phinterval(negative)
# Partially missing endpoints become fully NA
partial_na <- interval(NA, as.Date("1999-08-02"))
as_phinterval(partial_na)
# Datetime vectors become instantaneous intervals
as_phinterval(as.Date(c("2000-10-11", "2001-05-03")))
Run the code above in your browser using DataLab