numbers <- c(2, 3, 1, 7, 9)
# The function goes in as an argument
numbers1 <- vapply(numbers, \(x) x * 2 + 1,
numeric(1))
# numbers1 = 5 7 3 15 19
numbers2 <- Filter(\(x) x %% 3 == 0, numbers)
# numbers2 = 3 9
cat("numbers1 =", numbers1, "\n")
cat("numbers2 =", numbers2, "\n")