Flipped Assignment 2

dat<-read.csv("https://raw.githubusercontent.com/tmatis12/datafiles/main/normtemp.csv")
Males<-dat[dat$Sex==1,]
# Extracting Male heartbeats
Male_heartbeats<-dat[1:65,3]
# Extracting minimum
min(Male_heartbeats)

## [1] 58

# Extracting Max
max(Male_heartbeats)

## [1] 86

# Extracting Sample Mean
sd(Male_heartbeats)

## [1] 5.875184

# Standard deviation
mean(Male_heartbeats)

## [1] 73.36923

# Extracting median
median(Male_heartbeats)

## [1] 73

# quantiles 
quantile(Male_heartbeats)

##   0%  25%  50%  75% 100% 
##   58   70   73   78   86

# Histogral for Male heartbeat
hist(Male_heartbeats,xlab="Heartbeats",col="Blue")

# Normal probability distribution
qqnorm(Male_heartbeats)

Females<-dat[dat$Sex==2,]
# Extracting Female heartbeats
Female_heartbeats<-dat[66:130,3]
# Extracting minimum
min(Female_heartbeats)

## [1] 57

# Extracting Max
max(Female_heartbeats)

## [1] 89

# Extractin Sample Mean
mean(Female_heartbeats)

## [1] 74.15385

# Standard deviation
sd(Female_heartbeats)

## [1] 8.105227

# Extracting median
median(Female_heartbeats)

## [1] 76

# quantiles 
quantile(Female_heartbeats)

##   0%  25%  50%  75% 100% 
##   57   68   76   80   89

# Histogral for Male heartbeat
hist(Female_heartbeats,xlab="Heartbeats",col="Pink")

# Normal probability distribution
qqnorm(Female_heartbeats)

boxplot(Male_heartbeats, Female_heartbeats,names = c("Male", "Female"),col=c("blue","pink"))

1 Description of the data:

Male Plot is tighter than the Female plot. Female standard deviation of heart beats is more than the males along with having a lower minimum and higher maximum heart beat than the males. The mean heartbeats of both are pretty similar but the males are slightly lower than the females.

2 Complete R Code

dat<-read.csv("https://raw.githubusercontent.com/tmatis12/datafiles/main/normtemp.csv")
# Male selection
Males<-dat[dat$Sex==1,]
# Extracting Male heartbeats
Male_heartbeats<-dat[1:65,3]
# Extracting minimum
min(Male_heartbeats)
# Extracting Max
max(Male_heartbeats)
# Extracting Sample Mean
sd(Male_heartbeats)
# Standard deviation
mean(Male_heartbeats)
# Extracting median
median(Male_heartbeats)
# quantiles 
quantile(Male_heartbeats)
# Histogral for Male heartbeat
hist(Male_heartbeats,xlab="Heartbeats",col="Blue")
# Normal probability distribution
qqnorm(Male_heartbeats)
# Female selection
Females<-dat[dat$Sex==2,]
# Extracting Female heartbeats
Female_heartbeats<-dat[66:130,3]
# Extracting minimum
min(Female_heartbeats)
# Extracting Max
max(Female_heartbeats)
# Extractin Sample Mean
mean(Female_heartbeats)
# Standard deviation
sd(Female_heartbeats)
# Extracting median
median(Female_heartbeats)
# quantiles 
quantile(Female_heartbeats)
# Histogral for Male heartbeat
hist(Female_heartbeats,xlab="Heartbeats",col="Pink")
# Normal probability distribution
qqnorm(Female_heartbeats)