A
Lab File
On
DATA ANALYTICS
(BIT 651)
Submitted
For
Bachelor of Technology
in
DEPARTMENT OF INFORMATION TECHNOLOGY
At
SHRI SIDDHI VINAYAK INSTITUTE OF TECHNOLOGY, BAREILLY
6th SEMESTER
Session 2025-26
Submitted to: Submitted by:
LIST OF PROGRAMS FOR DATA ANALYTICS LAB (BIT 651)
[Link]. Objective Remark
To get the input from user and perform
1 numerical operation (MAX, MIN) using
in R.
To get the input from user and perform
2 numerical operation (SUM, AVG) using
in R.
To get the input from user and perform
3 numerical operation (SQRT, ROUND)
using in R.
To perform data import/export (.csv,
4 .xlsx, .txt) operations using data frame in
R.
To perform Matrix addition, subtraction,
5
Multiplication operations in R.
To perform Matrix division, inverse
6
transpose operations in R.
To perform statistical operations (Mean,
7 Median, Mode, Variance, Standard
Deviation) using R.
To perform Simple Linear Regression
8
with R.
Program-1
Objective: To get the input from user and perform numerical operation (MAX,
MIN) using in R.
Source Code-1: (in R)
# USER INPUT DATA
{
num1 = readline(prompt="Enter 1st number :")
num2 = readline(prompt="Enter 2nd number :")
num3 = readline(prompt="Enter 3rd number :")
num4 = readline(prompt="Enter 4th number :")
num5 = readline(prompt="Enter 5th number :")
num1 = [Link](num1)
num2 = [Link](num2)
num3 = [Link](num3)
num4 = [Link](num4)
num5 = [Link](num5)
}
# SELECT ALL TO GET RESULT OF MAX
{
[Link] = max(num1,num2,num3,num4,num5)
print (paste("The Maximum Number in",num1, num2, num3, num4, num5, "is
:", [Link]))
}
## SELECT ALL TO GET RESULT OF MIN
{
[Link] = min(num1,num2,num3,num4,num5)
print (paste("The Minimum Number in",num1, num2, num3, num4, num5, "is
:", [Link]))
}
Output:
Program-2
Objective: To get the input from user and perform numerical operation (SUM,
AVG) using in R.
Source Code-2: (in R)
# USER INPUT DATA
{
num1 = readline(prompt="Enter 1st number :")
num2 = readline(prompt="Enter 2nd number :")
num3 = readline(prompt="Enter 3rd number :")
num4 = readline(prompt="Enter 4th number :")
num5 = readline(prompt="Enter 5th number :")
num1 = [Link](num1)
num2 = [Link](num2)
num3 = [Link](num3)
num4 = [Link](num4)
num5 = [Link](num5)
}
# SELECT ALL TO GET RESULT OF SUM
{
num = num1 + num2 + num3 + num4 + num5
print (paste("Sum of Numbers are", num))
}
# SELECT ALL TO GET RESULT OF AVERAGE
{
avg = mean(c(num1,num2,num3,num4,num5))
print(paste("The average of", num1, num2,num3, num4, num5, "is: ",avg))
}
Output:
Program-3
Objective: To get the input from user and perform numerical operation (SQRT,
ROUND) using in R.
Source Code-3: (in R)
# SELECT ALL TO GET RESULT OF SQAUREROOT
{
digit1 = readline(prompt="Enter 1st number to get sqaure root :")
digit2 = readline(prompt="Enter 2nd number to get square root :")
digit1 = [Link](digit1)
digit2 = [Link](digit2)
sq.digit1 = sqrt(digit1)
sq.digit2 = sqrt(digit2)
print (paste("The Square root of",digit1, "is :", sq.digit1))
print (paste("The Square root of",digit2, "is :", sq.digit2))
}
# SELECT ALL TO GET RESULT OF ROUND
{
digit.round1 = readline(prompt="Enter 1st number to get round off value :")
digit.round2 = readline(prompt="Enter 2nd number to get round off value :")
digit.round3 = readline(prompt="Enter 3rd number to get round off value :")
d.round1 = [Link](digit.round1)
d.round2 = [Link](digit.round2)
d.round3 = [Link](digit.round3)
round1 = round(d.round1, digits = 0)
round2 = round(d.round2, digits = 0)
round3 = round(d.round3, digits = 0)
print (paste("The Round off value of ",digit.round1, "is :", round1))
print (paste("The Round off value of ",digit.round2, "is :", round2))
print (paste("The Round off value of ",digit.round3, "is :", round3))
}
Output:
Program-4
Objective: To perform data import/export (.csv, .xlsx, .txt) operations using data
frame in R.
Steps:
1) Create a folder named "DAlab" in local Disk D or E etc.
2) Download DEMO FILE (.csv file, .xls file and .txt file) from the internet
and save it in Folder name "DAlab".
3) Rename demo files as "[Link]”, "[Link]”, "[Link]"
respectively.
Source Code-4: (in R)
# Importing .CSV File
dataframe1 = [Link]("E:\\DAlab\\[Link]")
#"[Link]" is used for imporing the csv files.
#if DAlab folder is in local disk D then "D:\\DAlab\\[Link]"
#if DAlab folder is in local disk E then "E:\\DAlab\\[Link]"
str(dataframe1)
# Str is used for checking the structure of imported file
print(dataframe1)
#print is used to get the print of imported file
#Exporting .CSV File
#First create file to export
[Link] = [Link](Name = c("Student_Name1", "Student_Name2",
"Student_Name3", "Student_Name4", "Student_Name5"), RollNumber =
c(1,2,3,4,5))
#Write Names of Students and their RollNumber
print([Link])
# Exporting
[Link]([Link],"E:\\DAlab\\[Link]", [Link] = FALSE)
[Link]([Link],"E:\\DAlab\\[Link]", [Link] = TRUE)
#Install package to import or export xls file
[Link]("readxl")
[Link]("writexl")
#Imporing .xlsx file
library("readxl")
excelfile = read_excel("E:\\DAlab\\[Link]")
print(excelfile)
#Exporting .xlsx file
#First Create Dataframe
[Link] = [Link](Name = c("Student_Name1",
"Student_Name2","Student_Name3", "Student_Name4", "Student_Name5"),
RollNumber = c(1,2,3,4,5))
print([Link])
#Exporting
library("writexl")
[Link] = write_xlsx([Link],"E:\\DAlab\\exported_excel.xlsx")
#Import Txt File
[Link] = [Link]("E:\\DAlab\\[Link]")
print([Link])
#Exporting .xlsx file
#First Create Dataframe
[Link] = [Link](var1=c(1, 3, 3, 4, 5),var2=c(7, 7, 8, 3, 2),var3=c(3, 3, 6,
6, 8),var4=c(1, 1, 2, 8, 9))
print([Link])
#Exporting
[Link] = [Link]([Link], file='E:\\DAlab\\exported_text.txt')
Output:
Program-5
Objective: To perform Matrix addition, subtraction, Multiplication operations in
R.
Source Code-5: (in R)
#To create own function of Matrix creation
matrix_maker <- function() {
x = [Link](readline("Number of rows: "))
y = [Link](readline("Number of cols: "))
matrix(data = NA,
nrow = x,
ncol = y)
}
matrix_maker()
#Inputs from User
user.data1 = c(3,4,5,2,1,3,6,5,4)
user.data2 = c(5,3,5,2,6,2,1,9,6)
user.matrix1 = matrix(user.data1, nrow = 3, ncol = 3, byrow = TRUE)
user.matrix2 = matrix(user.data2, nrow = 3, ncol = 3, byrow = TRUE)
user.matrix1
user.matrix2
ADDITION
[Link] = user.matrix1 + user.matrix2
[Link]
Output:
SUBTRACTION
user.data1 = c(3,4,5,2,1,3,6,5,4)
user.data2 = c(5,3,5,2,6,2,1,9,6)
user.matrix1 = matrix(user.data1, nrow = 3, ncol = 3, byrow = TRUE)
user.matrix2 = matrix(user.data2, nrow = 3, ncol = 3, byrow = TRUE)
user.matrix1
user.matrix2
[Link] = user.matrix1 - user.matrix2
[Link]
Output:
MULTIPLICATION
user.data1 = c(3,4,5,2,1,3,6,5,4)
user.data2 = c(5,3,5,2,6,2,1,9,6)
user.matrix1 = matrix(user.data1, nrow = 3, ncol = 3, byrow = TRUE)
user.matrix2 = matrix(user.data2, nrow = 3, ncol = 3, byrow = TRUE)
user.matrix1
user.matrix2
[Link] = user.matrix1 * user.matrix2
[Link]
Output:
Program-6
Objective: To perform Matrix division, inverse, transpose operations in R.
Source Code-6: (in R)
DIVISION
user.data1 = c(3,4,5,2,1,3,6,5,4)
user.data2 = c(5,3,5,2,6,2,1,9,6)
user.matrix1 = matrix(user.data1, nrow = 3, ncol = 3, byrow = TRUE)
user.matrix2 = matrix(user.data2, nrow = 3, ncol = 3, byrow = TRUE)
user.matrix1
user.matrix2
[Link] = (user.matrix1 / user.matrix2)
[Link]
Output:
INVERSE
user.data1 = c(3,4,5,2,1,3,6,5,4)
user.data2 = c(5,3,5,2,6,2,1,9,6)
user.matrix1 = matrix(user.data1, nrow = 3, ncol = 3, byrow = TRUE)
user.matrix2 = matrix(user.data2, nrow = 3, ncol = 3, byrow = TRUE)
user.matrix1
user.matrix2
inverse = solve(user.matrix1)
inverse
Output:
TRANSPOSE
user.data1 = c(3,4,5,2,1,3,6,5,4)
user.data2 = c(5,3,5,2,6,2,1,9,6)
user.matrix1 = matrix(user.data1, nrow = 3, ncol = 3, byrow = TRUE)
user.matrix2 = matrix(user.data2, nrow = 3, ncol = 3, byrow = TRUE)
user.matrix1
user.matrix2
transpose1 = t(user.matrix1)
transpose2 = t(user.matrix2)
transpose1
transpose2
Output:
Program-7
Objective: To perform statistical operations (Mean, Median, Mode, Variance,
Standard Deviation) using R.
Source Code-7: (in R)
#CALCULATING MEAN
{
[Link] = c(1,2,3,4,5,1,2,3,1,2,4,5,2,3,1,1,2,3,5,6)
[Link] = mean([Link])
print ([Link])
}
#CALCULATING MEDIAN
{
[Link] = c(1,2,3,4,5,1,2,3,1,2,4,5,2,3,1,1,2,3,5,6)
[Link] = median([Link])
print ([Link])
}
#CALCULATING MODE
#MAKING FUNCTION TO CALCULATE MODE
{
mode <- function(x) {
ux <- unique(x)
ux[[Link](tabulate(match(x, ux)))]
}
}
{
[Link] = c(1,2,3,4,5,1,2,3,1,2,4,5,2,3,1,1,2,3,5,6)
[Link] = mode([Link])
print ([Link])
}
#CALCULATING VARIANCE and STANDARD DEVIATION
{
data = c(1,2,3,4,5,1,2,3,1,2,4,5,2,3,1,1,2,3,5,6)
[Link] = var(data)
print ([Link])
}
{
[Link] = sqrt(var(data))
print ([Link])
}
Output:
Program-8
Objective: To perform Simple Linear Regression with R.
Source Code-7: (in R)
df <- [Link](hours=c(1, 2, 4, 5, 5, 6, 6, 7, 8, 10, 11, 11, 12, 12, 14),
score=c(64, 66, 76, 73, 74, 81, 83, 82, 80, 88, 84, 82, 91, 93, 89))
#view first six rows of dataset
head(df)
#attach dataset to make it more convenient to work with
attach(df)
[Link](hours, score, main='Hours studied vs. Exam Score')
boxplot(score)
#fit simple linear regression model
model <- lm(score~hours)
#view model summary
summary(model)
#define residuals
res <- resid(model)
#produce residual vs. fitted plot
plot(fitted(model), res)
#add a horizontal line at 0
abline(0,0)
#create Q-Q plot for residuals
qqnorm(res)
#add a straight diagonal line to the plot
qqline(res)
Output:
PLOT-1
PLOT-2
PLOT-3
PLOT-4