RMarkdown Test Document

dat1 <-read.csv("https://raw.githubusercontent.com/tmatis12/datafiles/main/normtemp.csv")
Male_dat<-dat1[dat1$Sex==1,]
Female_dat<-dat1[dat1$Sex==2,]

(https://raw.githubusercontent.com/tmatis12/datafiles/main/normtemp.csv)

1 Male’s data

1.1 Summary of Male data

summary(Male_dat$Beats)

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

sd(Male_dat$Beats)

## [1] 5.875184

hist(Male_dat$Beats,col = "blue")

qqnorm(Male_dat$Beats, main = "Normal probability Plot",xlab="Theoretical Quartiles",ylab = "Males Resting heart Beat")

2 Female’s data

2.1 Summary of female’s data

summary(Female_dat$Beats)

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

sd(Female_dat$Beats)

## [1] 8.105227

hist(Female_dat$Beats,col = "pink")

qqnorm(Female_dat$Beats, main = "Normal probability Plot",xlab="Theoretical Quartiles",ylab = "Females Resting heart Beat")

3 Box Plot of Male’s and female’s

boxplot(Male_dat$Beats,Female_dat$Beats,main = "Box Plot for Heart Beats",names = c("Male","Female"),col = c("Blue","Pink"),ylab="Heart Beat")

4 Complete R Code

dat1 <-read.csv("https://raw.githubusercontent.com/tmatis12/datafiles/main/normtemp.csv")
Male_dat<-dat1[dat1$Sex==1,]
Female_dat<-dat1[dat1$Sex==2,]

#Male's
summary(Male_dat$Beats)
sd(Male_dat$Beats)
hist(Male_dat$Beats,col = "blue")
qqnorm(Male_dat$Beats, main = "Normal probability Plot",xlab="Theoretical Quartiles",ylab = "Males Resting heart Beat")

#Female's
summary(Female_dat$Beats)
sd(Female_dat$Beats)
hist(Female_dat$Beats,col = "pink")
qqnorm(Female_dat$Beats, main = "Normal probability Plot",xlab="Theoretical Quartiles",ylab = "Females Resting heart Beat")

#Boxplot
boxplot(Male_dat$Beats,Female_dat$Beats,main = "Box Plot for Heart Beats",names = c("Male","Female"),col = c("Blue","Pink"),ylab="Heart Beat")