x <- Intervals(
               c( 1, 5, 10, 1, 6, 20 ),
               closed = c( TRUE, FALSE ),
               type = "Z"
               )
# Empties are dropped
close_intervals(x)
adjust_closure(x, FALSE, TRUE)
# Intervals_full
y <- as( x, "Intervals_full" )
closed(y)[1,2] <- TRUE
open_intervals(y)
Run the code above in your browser using DataLab