SAGE UNIVERSITY, INDORE

Institute of Advance Computing

Laboratory Manual
B. Tech- Practical
Academic Session: Jan-Jun 2025

Name :Yuvraj Tomar

Enroll number : 22ADV3CSE1089
Program : B.Tech CSE
Course Code : ECSDSRPR001P
Course Name : R Programming Lab

Course Coordinator Head of Department

Name : Dr.Nirupma Tiwari Name : Dr. Manoj K. Ramaiya

Signature :
 INDEX
S.No LIST OF EXPERIMENT DATE PAGE REMARK
No.
I Write an R program for "Hello Sage". 13/01/2025 1

II Write an R program to Add two vectors. 13/01/2025 2

III Find the Sum, Mean, and Product of the 16/01/2025 3
Vector in R programming.
IV Create an R program to take Input from the 16/01/2025 4
user.
V How to generate random numbers from 20/01/2025 5-6
standard distributions in R.
VI Create an R program to find the Minimum 23/01/2025 7
and Maximum.
VII R Program to Sort a Vector. 27/01/2025 8
VIII How to find the factorial of a number. 07/02/2025 9

IX How to create multiplication table of given 07/02/2025 10

number.
X Write an R program to check prime number. 10/02/2025 11
XI R program to check armstrong number. 13/02/2025 12

XII R program to print the fibonacci sequence. 17/02/2025 13

XIII Write a R program to create a list containing a 17/02/2025 14

vector, a matrix and a list and remove the
second element.
XIV Write a R program to merge two given lists 20/02/2025 15
into one list.
XV Write a R program to convert a given list to 24/02/2025 16
vector.
XVI Write a R program to convert a given matrix 03/03/2025 17
to a list.
XVII Write a R program to Add 10 to each element 06/03/2025 18
of the first vector in a given list.
XVIII Write a R program to merge two given lists 10/03/2025 19
into one Vector.
XIX Write a R program to list containing a vector, 27/03/2025 20
a matrix and a list and give names to the
elements in the list.
XX Write a R program to create a list containing 07/04/2025 21
strings, numbers, vectors and a logical values.
 Experiment-I
Write an R program for "Hello Sage".
Code:-
cat("Hello Sage\n") # Print message

Output:-

1
 Experiment-II
Write an R program to Add two vectors.
Code:-
vector1 <- c(10, 20, 30) # Define the first vector

vector2 <- c(1, 2, 3) # Define the second vector

result <- vector1 + vector2 # Add the two vectors

cat("Vector 1:", vector1, "\n") # Display the result

cat("Vector 2:", vector2, "\n")

cat("Sum of the two vectors:", result, "\n")

Output:-

2
 Experiment-III
Find the Sum, Mean, and Product of the Vector in R
programming.
Code:-
vec <- c(2, 4, 6, 8) # Define a numeric vector

vec_sum <- 0 # Initialize variables

vec_product <- 1
for (val in vec) { # Loop through each element

vec_sum <- vec_sum + val

vec_product <- vec_product * val
}
vec_mean <- vec_sum / length(vec) # Calculate mean
cat("Sum:", vec_sum, "\n") # Display the results

cat("Mean:", vec_mean, "\n")

cat("Product:", vec_product, "\n")

Output:-

3
 Experiment-IV
Create an R program to take Input from the user.
Code:-
a <- as.numeric(readline("Enter first number: ")) # Take input from user

b <- as.numeric(readline("Enter second number: "))

sum <- a + b # Calculate sum

cat("Sum:", sum, "\n") # Display result

Output:-

4
 Experiment-V
How to generate random numbers from standard distributions.
In R, you can easily generate random numbers from standard distributions using
built-in functions. Here's a simple guide:
Common Standard Distributions in R

Distribution Function Example (generate 5 numbers)

Normal rnorm(n, mean, sd) rnorm(5, mean=0, sd=1)

Uniform runif(n, min, max) runif(5, min=0, max=1)

Binomial rbinom(n, size, prob) rbinom(5, size=10, prob=0.5)

Poisson rpois(n, lambda) rpois(5, lambda=3)

Exponential rexp(n, rate) rexp(5, rate=1)

Code:-
normal_numbers <- rnorm(5, mean = 0, sd = 1) # Normal distribution

cat("Normal Distribution:\n", normal_numbers, "\n\n")

uniform_numbers <- runif(5, min = 0, max = 1) # Uniform distribution

cat("Uniform Distribution:\n", uniform_numbers, "\n\n")

binomial_numbers <- rbinom(5, size = 10, prob = 0.5) # Binomial distribution
cat("Binomial Distribution:\n", binomial_numbers, "\n\n")
poisson_numbers <- rpois(5, lambda = 3) # Poisson distribution

cat("Poisson Distribution:\n", poisson_numbers, "\n\n")

exponential_numbers <- rexp(5, rate = 1) # Exponential distribution
cat("Exponential Distribution:\n", exponential_numbers, "\n")

5
Output:-

6
 Experiment-VI
Create an R program to find the Minimum and Maximum.
Code:-
user_input <- readline("Enter numbers separated by commas: ")
split_input <- strsplit(user_input, ",")[[1]] # Split by comma

numbers <- as.numeric(split_input) # Convert to numeric

min_value <- numbers[1] #Initialize min with the first element

max_value <- numbers[1] #Initialize max with the first element

for (num in numbers) { # Loop through the numbers to find min and max

if (num < min_value) {

min_value <- num
}
if (num > max_value) {
max_value <- num
}
}
cat("Minimum value is:", min_value, "\n") # Display results

cat("Maximum value is:", max_value, "\n")

Output:-

7
 Experiment-VII
R Program to Sort a Vector.
Code:-
user_input <- readline("Enter numbers separated by commas: ")
split_input <- strsplit(user_input, ",")[[1]] # Convert input to numeric vector

vec <- as.numeric(split_input)

n <- length(vec) # Get length of vector

for (i in 1:(n-1)) { # Bubble sort algorithm

for (j in 1:(n-i)) {
if (vec[j] > vec[j+1]) {
# Swap values
temp <- vec[j]
vec[j] <- vec[j+1]
vec[j+1] <- temp
}
}
}
cat("Sorted Vector:", vec, "\n") # Print sorted vector

Output:-

8
 Experiment-VIII
How to find the factorial of a number.
Code:-
num <- as.integer(readline("Enter a number: "))
if (num < 0) { # Check for valid input

cat("Factorial is not defined for negative numbers.\n")

} else if (num == 0) {
cat("Factorial of 0 is 1\n")
} else {
fact <- 1 # Initialize result

for (i in 1:num) { # Loop to calculate factorial

fact <- fact * i

}
cat("Factorial of", num, "is", fact, "\n") # Print the result
}

Output:-

9
 Experiment-IX
How to create multiplication table of given number.
Code:-
num <- as.integer(readline("Enter a number: "))
cat("Multiplication Table of", num, ":\n") # Print multiplication table up to 10
for (i in 1:10) {
result <- num * i
cat(num, "x", i, "=", result, "\n")
}

Output:-

10
 Experiment-X
Write an R program to check prime number .
Code:-
num <- as.integer(readline("Enter a number: ")) # Take input from user

if (num <= 1) { # Check for prime

cat(num, "is not a prime number.\n")

} else {
is_prime <- TRUE
for (i in 2:(num - 1)) {
if (num %% i == 0) {
is_prime <- FALSE
break
}
}
if (is_prime) {
cat(num, "is a prime number.\n")
} else {
cat(num, "is not a prime number.\n")
}}

Output:-

11
 Experiment-XI
R program to check armstrong number.
Code:-
num <- as.integer(readline("Enter a number: "))
original_num <- num # Store original number for later comparison

num_digits <- nchar(as.character(num)) # Calculate number of digits

sum <-0 # Initialize sum

temp <- num # Temporary variable for calculation

while (temp > 0) { # Loop to extract digits and calculate sum of powers

digit <- temp %% 10

sum <- sum + digit^num_digits
temp <- temp %/% 10
}
if (sum == original_num) { # Check if it's an Armstrong number

cat(original_num, "is an Armstrong number.\n")

} else {
cat(original_num, "is not an Armstrong number.\n")
}

Output:-

12
 Experiment-XII
R program to print the fibonacci sequence.
Code:-
n <- as.integer(readline("Enter the number of terms for Fibonacci sequence: "))
a <- 0 # Initialize the first two terms

b <- 1
cat("Fibonacci Sequence:\n") # Print the Fibonacci sequence

if (n >= 1) {
cat(a, " ")
}
if (n >= 2) {
cat(b, " ")
}
for (i in 3:n) {
next_term <- a + b
cat(next_term, " ")
a <- b # Update a and b for next iteration

b <- next_term
}
cat("\n")

Output:-

13
 Experiment-XIII
Write a R program to create a list containing a vector, a matrix
and a list and remove the second element.
Code:-
my_vector <- c(1, 2, 3, 4) # Create a vector, matrix, and list

my_matrix <- matrix(1:9, nrow = 3, ncol = 3)

my_list <- list(a = 10, b = 20, c = 30)
my_list1 <- list(my_vector, my_matrix, my_list) # Create a list

cat("Original List:\n")# Print the original list

print(my_list1)
my_list1 <- my_list1[-2] # Remove the second element from the list

cat("\nModified List (after removing second element):\n") # Print the modified list
print(my_list1)
Output:-

14
 Experiment-XIV
Write a R program to merge two given lists into one list.
Code:-
list1 <- list(a = 10, b = 20, c = 30) # Create two lists

list2 <- list(d = 40, e = 50, f = 60)

cat("Original List 1:\n") # Print original lists

print(list1)
cat("\nOriginal List 2:\n")
print(list2)
merged_list <- c(list1, list2) # Merge the two lists

cat("\nMerged List:\n") # Print the merged list

print(merged_list)
Output:-

15
 Experiment-XV
Write a R program to convert a given list to vector
Code:-
my_list <- list(10, 20, 30, 40, 50) # Create a list

cat("Original List:\n") # Print original list

print(my_list)
my_vector <- unlist(my_list) # Convert the list to a vector

cat("\nConverted Vector:\n") # Print the converted vector

print(my_vector)

Output:-

16
 Experiment-XVI
Write a R program to convert a given matrix to a list.
Different way to convert the matrix into list

Your Goal Code Example

Each value becomes a list item as.list(my_matrix)

Each column becomes a list item split(my_matrix, col(my_matrix))

Each row becomes a list item split(my_matrix, row(my_matrix))

Code:-
my_matrix <- matrix(1:6, nrow = 2, ncol = 3) # Create a matrix
cat("Original Matrix:\n") # Print the original matrix

print(my_matrix)
my_list <- as.list(my_matrix) # Convert the matrix to a list

cat("\nConverted List:\n") # Print the converted list

print(my_list)
Output:-

17
 Experiment-XVII
Write a R program to Add 10 to each element of the first vector in
a given list.
Code:-
my_list <- list(c(1, 2, 3), c(4, 5, 6), c(7, 8, 9)) # Create a list with vectors

cat("Original List:\n")# Print original list

print(my_list)
my_list[[1]] <- my_list[[1]] + 10 # Add 10 to each element of the first vector

cat("\nUpdated List (after adding 10 to first vector):\n") # Print updated list

print(my_list)

Output:-

18
 Experiment-XVIII
Write a R program to merge two given lists into one Vector.
Code:-
list1 <- list(10, 20, 30) # Create two lists

list2 <- list(40, 50, 60)

cat("List 1:\n") # Print the original lists

print(list1)
cat("\nList 2:\n")
print(list2)
merged_vector <- unlist(c(list1, list2)) # Merge the two lists and convert to a vector

cat("\nMerged Vector:\n") # Print the merged vector

print(merged_vector)

Output:-

19
 Experiment-XIX
Write a R program to list containing a vector, a matrix and a list
and give names to the elements in the list.
Code:-
my_vector <- c(1, 2, 3) # Create a vector

my_matrix <- matrix(1:4, nrow = 2) # Create a matrix

my_inner_list <- list("a", "b", "c") # Create a list

my_list <- list(my_vector, my_matrix, my_inner_list) # Create a list

names(my_list) <- c("Vector", "Matrix", "InnerList") # names of elements in thelist

print(my_list) # Print the final list

Output:-

20
 Experiment-XX
Write a R program to create a list containing strings, numbers,
vectors and a logical values.
Code:-
my_string <- "Hello, R!" # Create individual elements

my_number <- 42
my_vector <- c(1, 2, 3, 4, 5)
my_logical <- TRUE
my_list <- list(my_string, my_number, my_vector, my_logical)#list with all elements
names(my_list) <- c("String", "Number", "Vector", "Logical") #Name of list
print(my_list) # Print the list

Output:-

21