# NOT RUN {
# make 3 Interval elements
# we define the 3 Intervals as ,1] (1,2) and [2,
mi <- make_intervals(
list("openClosed", "openOpen", "closedOpen"),
list(NULL, 1, 2), list(1, 2, NULL)
)
# }
Run the code above in your browser using DataLab