# NOT RUN {
bounds <- c("[]", "[)", "(]", "()",
"[[", "]]", "][",
"open", "closed",
"left-open", "right-open",
"left-closed", "right-closed")
rebound(bounds)
# }
Run the code above in your browser using DataLab