create a function in r with if else if code example

Example 1: ifelse in r

> a = c(5,7,2,9)
> b = ifelse(a %% 2 == 0,"even","odd")
# b: odd odd even odd

Example 2: if and else if in r

if ( test_expression1) {
statement1
} else if ( test_expression2) {
statement2
} else if ( test_expression3) {
statement3
} else {
statement4
}