numbers <- c(2, 3, 5, 7, 11, 13, 17)
contain5 <- 5 %in% numbers
# contain5 = TRUE
index5 <- match(5, numbers)
# index5 = 3
contain10 <- 10 %in% numbers
# contain10 = FALSE
# Position 0 when nothing is found
index10 <- match(10, numbers, nomatch = 0)
# index10 = 0
# First match by condition
first_over7 <- numbers[numbers > 7][1]
# first_over7 = 11
values <- c(1, 9, 8, 3, 1, 6, 71)
contain_num <- sum(values == 1)
# contain_num = 2
cat("contain5 =", contain5, "\n")
cat("index5 =", index5, "\n")
cat("contain10 =", contain10, "\n")
cat("index10 =", index10, "\n")
cat("first_over7 =", first_over7, "\n")
cat("contain_num =", contain_num, "\n")