contain_number <- function(numbers, number) {
for (current_number in numbers) {
if (current_number == number) {
return(TRUE)
}
}
# No return(): the last value is the result
FALSE
}
data <- c(1, 2, 3)
is_contain2 <- contain_number(data, 2)
# is_contain2 = TRUE
is_contain4 <- contain_number(data, 4)
# is_contain4 = FALSE
cat("is_contain2 =", is_contain2, "\n")
cat("is_contain4 =", is_contain4, "\n")