Untitled

Here is our data read in:

dat <- read.csv('https://raw.githubusercontent.com/tmatis12/datafiles/main/normtemp.csv')
#data$Sex <- as.factor(data$Sex)
males=dat[1:65,3]
females=dat[65:length(dat),3]

Summary of Male Heatbeats

summary(males)

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

sd(males)

## [1] 5.875184

We can see that our mean is 73.37, with a range of 28. Our mean and Median are close to each other, so our data is probably not skewed. Additionally, our standard deviation is 5.95.

Summary of Female Heatbeats

summary(females)

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

sd(females)

## [1] 5.94552

We can see that our mean is 73.37, with a range of 28 (the same as Males). Our mean and Median are close to each other, so our data is probably not skewed.

The mean Male and Female heartbeats are very similar. As well as the standard deviations.

Plots

Plots of Males heartbeats, showing distribution of data:

hist(males,main='Histogram of Male Heartbeats',col='light blue')

qqnorm(males,main='Plot of Male Heartbeats')

Our data does appear to be normally distributed, both in the Histogram and the straight line shown on the Normal Probability Plot.

Plots of Females heartbeats, showing distribution of data:

hist(females,main='Histogram of Female Heartbeats',col='light pink')

qqnorm(females,main='Plot of Female Heartbeats')

Our data for females does appear to be normally distributed, both in the Histogram and the straight line shown on the Normal Probability Plot. Both Male and Female are very similar.

Boxplot

A comparison boxplot between the two. We can see they are very similar in both median range, and spread.

boxplot(males,females, main='Boxplot of Males and Females Heartbeat', names=c('Males','Females'))