```
x <- 1:9
x %[]% c(3,5)
# outside
x <- 1:9
x %][% c(3,5)
c(x,NA) %[]% c(3,5)
x %(]% c(3,5)
# no result when from > to:
x %[]% c(5,3)
x %(]% c(5,5)
# no problem:
ordered(x) %[]% c(3,5)
# not meaningful:
factor(x) %[]% c(3,5)
# characters
letters[letters %(]% c("d","h")]
data(d.pizza)
x <- levels(d.pizza$driver)
x %[]% c("C","G")
# select diamonds with a price between 2400 and 2510
data(d.diamonds)
d.diamonds[d.diamonds$price %[]% c(2400,2510),]
# use it with an ordered factor and select all diamonds with
# symmetry between G (included) and X (excluded).
mean(d.diamonds[d.diamonds$symmetry %[)% c("G","X"),"price"])
# use multiple ranges
2 %[]% cbind(1:4,2:5)
# both arguments are recycled
c(2,3) %[]% cbind(1:4,2:5)
# between operator for vector positions
set.seed(4)
(x <- sample(LETTERS, size=10, replace=TRUE))
# [1] "X" "K" "S" "C" "G" "L" "S" "V" "U" "Z"
# return all elements between "S" and "L"
x %:% c("S","L")
# [1] "S" "C" "G" "L"
x %:% c("S","A")
# [1] "S" "C" "G" "L" "S" "V" "U" "Z"
x %:% c("A","S")
# [1] "X" "K" "S"
# reverted matches return the elements in reverse order
x %:% c("G","X")
# [1] "G" "C" "S" "K" "X"
# no match results in NA
x %:% c("Y","B")
(x <- c("B", "A", "X", "K", "S", "K", "G", "L", "K", "V", "K", "Z"))
# lazy
x %:% c("A", "K")
# greedy
x %::% c("A", "K")
```

Run the code above in your browser using DataLab