Reading Data from the csv file

data <-  read.csv("https://raw.githubusercontent.com/tmatis12/datafiles/main/normtemp.csv")

Descriptive Statistics for Heartbeats of Males

Males<-data[1:65,3]
Summary_males <- summary(Males)
variance_males <- var(Males)
standard_deviation_males <- sd(Males)
IQR_males <- IQR (Males)

Printing the Descriptive Statistical values :-

Summary_males
##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
##   58.00   70.00   73.00   73.37   78.00   86.00
variance_males
## [1] 34.51779
standard_deviation_males
## [1] 5.875184
IQR_males
## [1] 8

Comments :-

  • From above statistics we can see that minimum is 58, maximum is 86, standard deviation is 5.8751841 and Sample mean is 73.3692308

Histogram of Male-Resting Heartbeat

hist_male <- hist(Males,main="Histogram of Male Heartbeat",col="blue",xlab = "Resting heartbeat")

Comments :-

  • The above Histogram looks fairly similar to Normal Distribution, with cluster at center and with thin tails as the both end.
  • Most males resting heartbeat falls in bin of 70-75.

Normal Probability Plot for Males

Normal_male_plot <- qqnorm(Males,main ="Normal Probability Plot for Resting Heartbeat of Males" , col="blue")

Comments :-

  • The Probability plot looks fairly straight, at least when the outliers are ignored, hence we can say that its a normally distributed data.
  • As the plot is normally distributed, hence the skewness will be Zero.

Descriptive Statistics for Heartbeats of Females

females<-data[66:130,3]
summary_females <- summary(females)
variance_females <- var(females)
standard_deviation_females <- sd(females)
IQR_females <- IQR (females)

Printing the Descriptive Statistical values :-

summary_females
##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
##   57.00   68.00   76.00   74.15   80.00   89.00
variance_females
## [1] 65.69471
standard_deviation_females
## [1] 8.105227
IQR_females
## [1] 12

Comments :-

  • From above statistics we can see that minimum is 57, maximum is 89, standard deviation is 8.1052274 and Sample mean is 74.1538462

Histogram of Female-Resting Heartbeat

hist_female <- hist(females,main="Histogram of Female Heartbeat",col="pink",xlab = "Resting Heartbeat")

Comments :-

  • The above Histogram is Left Skewed, with cluster of data towards the right side.

  • Most Females resting heartbeat falls in bin of 75-80.

Normal Probability Plot for Females

Normal_female_plot <- qqnorm(females,main ="Normal Probability plot for heartbeat of females" , col="pink")

Comments :-

  • The Probability plot looks left skewed.

Side by Side Boxplot for Male and Female Heartbeats

c <- boxplot(Males,females,main ="Resting Heartrates for Males and Females respectively",names = c("Males", "Females"),ylab="Resting Heartbeat")

Comments :-

  • Above box plot shows median for female is greater than that of Males.

  • InterQuartile Range of Female is greater than that of Males.

  • Maximum for Males and Females from above Box plot is 86 and 89 respectively.

  • Minimum for Males and Females from above Box plot falls between 70-75 and 75-80 respectively.

Source Code


data <-  read.csv("https://raw.githubusercontent.com/tmatis12/datafiles/main/normtemp.csv")

## males ------------------------

Males<-data[1:65,3]

#summary
Summary_males <- summary(Males)
summary_male_list <- as.list(Summary_males)
#Descriptive Stats

variance_males <- var(Males)
std_males <- sd(Males)
IQR_males <- IQR (Males)

# Histogram for male 
hist_male <- hist(Males,main="histogram of male heartbeat",col="blue")

#Normal Probility plot
Normal_male_plot <- qqnorm(Males,main ="Normal Probability plot for heartbeat of males" , xlab="x-males",ylab="Heartbeat" , col="blue")


# Females ----------------------

females<-data[66:130,3]

#summary
summary_females <- summary(females)
summary_females_list <- as.list(summary_female)
#Descriptive Stats

variance_females <- var(females)
std_females <- sd(females)
IQR_females <- IQR (females)

# Histogram for female 
hist_female <-hist(females,main="histogram of female heartbeat",col="pink")

#Normal Probility plot
Normal_female_plot <- qqnorm(females,main ="Normal Probability plot for heartbeat of females" , xlab="x-females" ,ylab="Heartbeat" , col="pink")


#-------------------------------------------------------------------------------


c <- boxplot(Males,females,main ="Resting heart rates for males and females respectively",names = c("Males", "Females"),ylab="Resting Heartbeat")