1 Male Analysis

Insert inline LaTex between d

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

# Analysis for males : min max sample mean, std dev,samp median, quartiles

males<-dat[dat$Sex==1,]
females<-dat[dat$Sex==2,]


# establish vector for male heartbeats
malebeats<-males$Beats

1.1 Male Min

min(malebeats)
## [1] 58

This command has min median, max, and quartiles

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

standard deviation

sd(malebeats)
## [1] 5.875184

Normal probablity plot of heartrate

qqnorm(malebeats)

Histogram in color for males

hist(malebeats,main='Heart Rate of Males',xlab='heartrates',col="Blue")

2 Female Analysis

femalebeats<-females$Beats

Min for females

min(femalebeats)
## [1] 57

This command has min median, max, and quartiles

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

standard deviation

sd(femalebeats)
## [1] 8.105227

Normal probablity plot of heartrat

qqnorm(femalebeats)

Histogram in color for females

hist(femalebeats,main='Heart Rate of Females',xlab='heartrates',col="Pink")

Boxplot Comparison

boxplot(malebeats,femalebeats,names=c('Males','Females'),main='Boxplot of Males and Females',ylab='Heartrates')

Comments.

There is no significant difference in the mean and standard deviation. Variance are equal to each other.