Assignment-2

Read Data From URL

dat <- read.csv('https://raw.githubusercontent.com/tmatis12/datafiles/main/normtemp.csv')
dat$Sex <- as.factor(dat$Sex)

Extracting Male Data

mdata <- subset(dat, Sex==1)
summary(mdata$Beats)

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

sd(mdata$Beats)

## [1] 5.875184

commnets: From this data info the Male’s Max heart beat is 86 and minimum beats is 58.00 and standard deviation of hear beats is 5.87

##Histogram of Male HeartBeat Data

hist(mdata$Beats, col='Blue', main ='Histogram of Male Heart Beats', xlab = 'Beats')

qqnorm(mdata$Beats, col='Blue', main = 'Q-Q Plot of Males Heart Beats')
qqline(mdata$Beats, col='green')

Extracting Famale Data

fdata <- subset(dat, Sex==2)
summary(fdata$Beats)

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

sd(fdata$Beats)

## [1] 8.105227

Commnets: From this data info the Female’s Max heart beat is 89.00 and minimum beats is 57.00 and standard deviation of hear beats is 8.105227

##Histogram of Female HeartBeat Data

hist(fdata$Beats, col='Pink', main ='Histogram of Female Heart Beats', xlab = 'Beats')

qqnorm(fdata$Beats, col='Pink', main = 'Q-Q Plot of Female Heart Beats')
qqline(fdata$Beats, col='red')

Compare Box Plot Heart Rates

boxplot(mdata$Beats, fdata$Beats, names=c("Male", "Female"), col=c("blue","pink"))

From this Box Plot is clearly observed -

• Female heart beat higher rates than male heart rates,
• Median of female sample is higher than the males,
• Female heart beat rate is more spread out in data table

Complete R Code

## Read Data From URL

dat <- read.csv('https://raw.githubusercontent.com/tmatis12/datafiles/main/normtemp.csv')
str(dat)
dat$Sex <- as.factor(dat$Sex)

## Extracting Male Data

mdata <- subset(dat, Sex==1)
summary(mdata$Beats)
sd(mdata$Beats)

##Histogram of Male HeartBeat Data

hist(mdata$Beats, col='Blue', main ='Histogram of Male Heart Beats', xlab = 'Beats')
qqnorm(mdata$Beats, col='Blue', main = 'Q-Q Plot of Males Heart Beats')
qqline(mdata$Beats, col='green')

## Extracting Famale Data

fdata <- subset(dat, Sex==2)
summary(fdata$Beats)
sd(fdata$Beats)

##Histogram of Female HeartBeat Data

hist(fdata$Beats, col='Pink', main ='Histogram of Female Heart Beats', xlab = 'Beats')
qqnorm(fdata$Beats, col='Pink', main = 'Q-Q Plot of Female Heart Beats')
qqline(fdata$Beats, col='red')

## Compare Box Plot Heart Rates

boxplot(mdata$Beats, fdata$Beats, names=c("Male", "Female"), col=c("blue","pink"))