Course

Additional

Find the Statistical Mode Write to a File Format Decimal Places

Data Frames

Convert a List to a Dataframe Create an Empty Dataframe Combine Two Dataframe into One Change Column Name of a Dataframe Extract Columns From a Dataframe Drop Columns in a Dataframe Reorder Columns in a Dataframe Split Dataframe Merge Multiple Dataframes Delete Rows From Dataframe Make a List of Dataframes

Introduction

"Hello World" Program Add Two Vectors Find Sum, Mean and Product of Vector in R Programming Take Input From User Generate Random Number from Standard Distributions Sample from a Population Find Minimum and Maximum Sort a Vector

Strings

Concatenate Two Strings Find the Length of a String Check if Characters are Present in a String Extract n Characters From a String Replace Characters in a String Compare two Strings Convert Factors to Characters Trim Leading and Trailing Whitespaces

Vectors

Concatenate a Vector of Strings Check if a Vector Contains the Given Element Count the Number of Elements in a Vector Find Index of an Element in a Vector Access Values in a Vector Add Leading Zeros to Vector

Decision and Loops

Find the Factorial of a Number R Multiplication Table Check Prime Number check Armstrong Number Print the Fibonacci Sequence Check for Leap Year Check if a Number is Odd or Even in R Programming Check if a Number is Positive, Negative or Zero Find the Sum of Natural Numbers

Functions

Convert Decimal into Binary using Recursion in R Find the Factorial of a Number Using Recursion Find the Factors of a Number Fibonacci Sequence Using Recursion in R Find H.C.F. or G.C.D.Find L.C.M.Make a Simple Calculator Sum of Natural Numbers Using Recursion

R Program to Check for Leap Year

A leap year is exactly divisible by 4 except for century years (years ending with 00). The century year is a leap year only if it is perfectly divisible by 400.

Example: Check Leap Year


              
# Program to check if
# the input year is
# a leap year or not

year = as.integer(readline(prompt="Enter a year: "))
if((year %% 4) == 0) {
    if((year %% 100) == 0) {
        if((year %% 400) == 0) {
            print(paste(year,"is a leap year"))
        } else {
            print(paste(year,"is not a leap year"))
        }
    } else {
        print(paste(year,"is a leap year"))
    }
} else {
    print(paste(year,"is not a leap year"))
}

Output 1


              
Enter a year: 1900
[1] "1900 is not a leap year"

Output 2


              
Enter a year: 2000
[1] "2000 is a leap year"

If a year is divisible by 4, 100 and 400, it’s a leap year.

If a year is divisible by 4 and 100 but not divisible by 400, it’s not a leap year.

If a year is divisible by 4 but not divisible by 100, it’s a leap year.

If a year is not divisible by 1, it’s not a leap year.

This logic is implemented in the above program using nested if...else statement.