New Assignment 2

{r} #Load Data data <-read.csv(“https://raw.githubusercontent.com/tmatis12/datafiles/main/normtemp.csv”) head(data)

#Subset data male<-subset(data, Sex == 1)\(Beats female<-subset(data, Sex ==2)\)Beats

#Descriptive stats and analysis summary(male) sd(male) summary(female) sd(female)

#Histograms hist(male, main=“Male Resting Heart Rate”, xlab=“Heart Rate”, col=“blue”,border=“black”) hist(female, main=“Female Resting Heart Rate”, xlab=“Heart Rate”, col=“pink”,border=“black”)

#Probability Plot qqnorm(male, col=“blue”, main=“QQ Plot- Male Heart Rate”) qqline(male, col=“blue”) qqnorm(female, col=“pink”, main=“QQ Plot- Female Heart Rate”) qqline(female, col=“pink”)

#Boxplot comparison boxplot(male,female, names =c(“Male”,“Female”), main=“Resting Heart Rate by Gender”, col=c(“blue”,“pink”)

```