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