Assignment 2
Zilu Zhang
09-01-2026
Introduction
This report analyzes resting heart rate data for males and females.
Grab Data
Grab data of the resting heart rate of males and females.
dat<-read.csv("https://raw.githubusercontent.com/tmatis12/datafiles/main/normtemp.csv")
Male_Data<-dat[dat$Sex == 1, ]
Female_data<-dat[dat$Sex == 2, ]
Male_RestingHearRate<-Male_Data$Beats
Female_RestingHearRate<-Female_data$BeatsMales Resting Heart Rate
Descriptive Statistics
summary(Male_RestingHearRate)## Min. 1st Qu. Median Mean 3rd Qu. Max.
## 58.00 70.00 73.00 73.37 78.00 86.00sd(Male_RestingHearRate)## [1] 5.875184Histogram
hist(Male_RestingHearRate,xlab = "Resting Heart Rate",col = "Blue")
Normal Probability Plot
qqnorm(Male_RestingHearRate,main = "Normal Probability Plot for Male Resting Heart Rate")
Females Resting Heart Rate
Descriptive Statistics
summary(Female_RestingHearRate)## Min. 1st Qu. Median Mean 3rd Qu. Max.
## 57.00 68.00 76.00 74.15 80.00 89.00sd(Female_RestingHearRate)## [1] 8.105227Histogram
hist(Female_RestingHearRate,xlab = "Resting Heart Rate",col = "Pink")
Normal Probability Plot
qqnorm(Female_RestingHearRate,main = "Normal Probability Plot for Female Resting Heart Rate")
Comments
The minimum resting heart rate for females is 57.00 beats per minute, and the maximum is 89.00 beats per minute. The mean is 74.15 and the median is 76.00. The sample standard deviation is 8.105227. The histogram of female resting heart rate is skewed to the left. Most female resting heart rates are concentrated between approximately 75 and 80 beats per minute. The female resting heart rate data appear to be approximately normally distributed.
Side-by-Side Box plots
boxplot(Male_RestingHearRate,Female_RestingHearRate,names = c("Male", "Female"), main = "Resting Heart Rate for Male and Female", ylab = "Resting Heart Rate (beats/min)")
Comments
Females resting heart rates have a higher median and bigger variability than males.
Complete Code
dat<-read.csv("https://raw.githubusercontent.com/tmatis12/datafiles/main/normtemp.csv")
Male_Data<-dat[dat$Sex == 1, ]
Female_data<-dat[dat$Sex == 2, ]
Male_RestingHearRate<-Male_Data$Beats
Female_RestingHearRate<-Female_data$Beats
summary(Male_RestingHearRate)
sd(Male_RestingHearRate)
hist(Male_RestingHearRate,xlab = "Resting Heart Rate",col = "Blue")
qqnorm(Male_RestingHearRate,main = "Normal Probability Plot for Male Resting Heart Rate")
summary(Female_RestingHearRate)
sd(Female_RestingHearRate)
hist(Female_RestingHearRate,xlab = "Resting Heart Rate",col = "Pink")
qqnorm(Female_RestingHearRate,main = "Normal Probability Plot for Female Resting Heart Rate")
boxplot(Male_RestingHearRate,Female_RestingHearRate,names = c("Male", "Female"), main = "Resting Heart Rate for Male and Female", ylab = "Resting Heart Rate (beats/min)")
Comments
The minimum resting heart rate for males is 58.00 beats per minute, and the maximum is 86.00 beats per minute. The mean is 73.37 and the median is 73.00. The sample standard deviation is 5.875184. The histogram of male resting heart rate is approximately symmetric. Most male resting heart rates are concentrated between approximately 70 and 75 beats per minute. The male resting heart rate data appear to be approximately normally distributed.