Assignment

1. Male Analysis

doe<-read.csv("https://raw.githubusercontent.com/tmatis12/datafiles/main/normtemp.csv")
M<-doe[1:65,3]

min(M)

## [1] 58

max(M)

## [1] 86

median(M)

## [1] 73

mean(M)

## [1] 73.36923

sd(M)

## [1] 5.875184

summary(M)

##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
##   58.00   70.00   73.00   73.37   78.00   86.00

qqnorm(M)

hist(M,main = "Heart Rate of Males", xlab= "heartrate",col = "Blue")

Comments - The Q-Q Plot is almost a straight line, so we can assume the data is normally distributed.

2. Female Analysis

doe<-read.csv("https://raw.githubusercontent.com/tmatis12/datafiles/main/normtemp.csv")
F<-doe[doe$Sex==2,]
FB <- F$Beats

min(FB)

## [1] 57

max(FB)

## [1] 89

median(FB)

## [1] 76

mean(FB)

## [1] 74.15385

sd(FB)

## [1] 8.105227

summary(FB)

##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
##   57.00   68.00   76.00   74.15   80.00   89.00

qqnorm(FB)

hist(FB,main = "Heart rate of females",xlab = "heartrate",col = "pink")

Comments - The Q-Q Plot is almost a straight line, so we can assume the data is normally distributed.

3. Side by Side box plots comparing the resting heart rate of males and females

boxplot(M,FB,names = c("Males","Females"),main="boxplot of Males and Females",ylab="Heartrate")

4. Similarities and Differences:

-> The median is higher for females than for males, females generally have higher resting heart rates (Male - 73 and Female - 76)

-> Both groups show a roughly similar trend, most individuals’ resting heart rates lie within a similar range.

-> Both distributions show a few outliers at the higher end.

-> The entire female box tends to be shifted slightly upward compared to the male box. The range of values is higher in females.

5. Entire R-Code:

doe<-read.csv("https://raw.githubusercontent.com/tmatis12/datafiles/main/normtemp.csv")
M<-doe[1:65,3]
min(M)
max(M)
median(M)
mean(M)
sd(M)
summary(M)
qqnorm(M)
hist(M,main = "Heart Rate of Males", xlab= "heartrate",col = "Blue")
F<-doe[doe$Sex==2,]
FB <- F$Beats
min(FB)
max(FB)
median(FB)
mean(FB)
sd(FB)
summary(FB)
qqnorm(FB)
hist(FB,main = "Heart rate of females",xlab = "heartrate",col = "pink")
boxplot(M,FB,names = c("Males","Females"),main="boxplot of Males and Females",ylab="Heartrate")