Flipped Assignment 2

Males

a<-read.csv("https://raw.githubusercontent.com/tmatis12/datafiles/main/normtemp.csv")
M<-a[1:65,3]
## minimum of heartrate
min(M)

## [1] 58

## maximum of heartrate
max(M)

## [1] 86

## mean of heartrate
mean(M)

## [1] 73.36923

## Standard deviation of heartrate
sd(M)

## [1] 5.875184

## median of heartrates
median(M)

## [1] 73

## Quality of heartrate
summary(M)

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

## Normal probability plot of heartrate
qqnorm(M)

## Histogram of heartrate
hist(M, main ="Heart rates of males",xlab = "heartrates", col = "blue")

##

Females

a<-read.csv("https://raw.githubusercontent.com/tmatis12/datafiles/main/normtemp.csv")
F<-a[66:130,3]
## minimum of heartrate
min(F)

## [1] 57

## maximum of heartrate
max(F)

## [1] 89

## mean of heartrate
mean(F)

## [1] 74.15385

## Standard deviation of heartrate
sd(F)

## [1] 8.105227

## median of heartrates
median(F)

## [1] 76

## Quality of heartrate
summary(F)

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

## Normal probability plot of heartrate
qqnorm(F)

## Histogram of heartrate
hist(F, main ="Heart rates of females",xlab = "heartrates", col="pink")

Boxplots of Heartrates

a<-read.csv("https://raw.githubusercontent.com/tmatis12/datafiles/main/normtemp.csv")
M<-a[1:65,3]
F<-a[66:130,3]
boxplot(M,F, names=c("Males","Females"),main="boxplot of males and females", ylab="heartrates")

## comments Heartrates for the males is less scattered in terms of variation and median is lower while for females heartrates are more scattered and the meadian is higher.