numbers <- c(2, 3, 5, 7, 11)
# Both ends are included
middle <- numbers[2:4]
# middle = 3 5 7
first2 <- head(numbers, 2)
# first2 = 2 3
last2 <- tail(numbers, 2)
# last2 = 7 11
# A negative count drops from the other end
without_last2 <- head(numbers, -2)
# without_last2 = 2 3 5
# A slice is a copy, not a view
last3 <- tail(numbers, 3)
# last3 = 5 7 11
numbers[3] <- 50
# numbers = 2 3 50 7 11
cat("middle =", middle, "\n")
cat("first2 =", first2, "\n")
cat("last2 =", last2, "\n")
cat("without_last2 =", without_last2, "\n")
cat("last3 =", last3, "\n")
cat("numbers =", numbers, "\n")