Assignment 2

urldata<-read.csv("https://raw.githubusercontent.com/tmatis12/datafiles/main/normtemp.csv")

Males<-urldata[1:65,3]            
summary(Males)

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

sd(Males)

## [1] 5.875184

hist(Males, col = blues9)

qqnorm(Males, main="Normal probability plot of Males heartbeat", col = "blue",xlab = 'Male', ylab = 'Heartbeat')

The normal distribution plots for male is -1 sstandard deviation of the from the mean and has outliers

Female<-urldata[66:130,3]            
summary(Female)

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

sd(Female)

## [1] 8.105227

hist(Female, col = "pink")

qqnorm(Female, main="Normal probability plot of Females heartbeat", col = "Pink", xlab = 'Female', ylab = 'Heartbeat')

The normal distribution plots for female is -2 sstandard deviation of the from the mean

boxplot(Males, Female, names = c("Males", "Female"), main="Comparing Boxplot for Male and Female")

The boxplot for female heartrate data is very distributed when compaired with males heartbeat

urldata<-read.csv("https://raw.githubusercontent.com/tmatis12/datafiles/main/normtemp.csv")

Males<-urldata[1:65,3]            
summary(Males)

sd(Males)

hist(Males, col = blues9)

qqnorm(Males, main="Normal probability plot of Males heartbeat", col = "blue",xlab = 'Male', ylab = 'Heartbeat')

The normal distribution plots for male is -1 sstandard deviation of the from the mean and has outliers


Female<-urldata[66:130,3]            
summary(Female)

sd(Female)

hist(Female, col = "pink")

qqnorm(Female, main="Normal probability plot of Females heartbeat", col = "Pink", xlab = 'Female', ylab = 'Heartbeat')

The normal distribution plots for female is -2 sstandard deviation of the from the mean

boxplot(Males, Female, names = c("Males", "Female"), main="Comparing Boxplot for Male and Female")