R Program to Check if a Number is Odd or Even

The objective of the program is to categorize a given set of numbers into two distinct groups: odd numbers and even numbers. The program achieves this by examining each number and determining whether it is divisible by 2 without leaving a remainder.

In this article, we will discuss how to create a program to categorize numbers into odd or even with its working example in the R Programming Language using R if-else conditions.

Syntax:

if (number %%2== 0) {
  # Code block executed if the number is even
  print("Number is even")
} else {
  # Code block executed if the number is odd
  print("Number is odd")
}

Example 1: Programme to categorize numbers into odd or even.

number <- 10

if (number%%2== 0) {
  print("Number is even")
} else {
  print("Number is odd")
}

Output:

[1] "Number is even"

• number is assigned the value 10,
• The if statement compares 10. If num1%%2==0, the code inside the curly braces following the if statement will be executed. Otherwise, the code inside the curly braces following the else statement will be executed.
• In this case, since 10%%2 equal to 0, the code inside the else block will not be executed.
• The print statement is used to display that the number is even, in the console.

Example 2: Programme to categorize numbers into odd or even.

number <- 15

if (number%%2 == 0) {
  print("Number is even")
} else {
  print("Number is odd")
}

Output:

Number is odd

• number is assigned the value 15,
• The if statement compares 15. If num1%%2==0, the code inside the curly braces following the if statement will be executed. Otherwise, the code inside the curly braces following the else statement will be executed.
• In this case, since 15%%2 equal to 0, the code inside the else block will not be executed.
• The print statement is used to display that the number is odd, in the console.

Example 3: Take input from user defined function

categorize_number <- function(number) {
  if (number %% 2 == 0) {
    return("Even")
  } else {
    return("Odd")
  }
}

num <- as.numeric(readline("Enter a number: "))
category <- categorize_number(num)
cat(num, "is an", category, "number.\n")

Output:

25 is an Odd number.

• categorize_number <- function(number).
• This line defines a function named categorize_number that takes one parameter, number.
• if (number %% 2 == 0) else.
• This is an if statement that checks whether the given number is even or odd using the modulo operator (%%).
• If the remainder of number / 2 is 0, the number is even, and the function returns the string "Even".
• Otherwise, if the remainder is not 0, the number is odd, and the function returns the string "Odd