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 Armstrong Number

An Armstrong number, also known as narcissistic number, is a number that is equal to the sum of the cubes of its own digits.

For example, 370 is an Armstrong number since 370 = 3*3*3 + 7*7*7 + 0*0*0.

Example: Check Armstrong number


              
# take input from the user
num = as.integer(readline(prompt="Enter a number: "))

# initialize sum
sum = 0

# find the sum of the cube of each digit
temp = num
while(temp > 0) {
    digit = temp %% 10
    sum = sum + (digit ^ 3)
    temp = floor(temp / 10)
}

# display the result
if(num == sum) {
    print(paste(num, "is an Armstrong number"))
} else {
    print(paste(num, "is not an Armstrong number"))
}

Output 1


              
Enter a number: 23
[1] "23 is not an Armstrong number"

Output 2


              
Enter a number: 370
[1] "370 is an Armstrong number"

Here, we ask the user for a number and check if it is an Armstrong number.

We need to calculate the sum of cube of each digit. So, we initialize the sum to 0 and obtain each digit number by using the modulus operator %%.

Remainder of a number when it is divided by 10 is the last digit of the number.

We take the cubes using exponent operator. Finally, we compare the sum with the original number and conclude it is an Armstrong number if they are equal.