Assignment2

# Draft Kings Salaries of Players on Houston Rockets and LA Lakers
dat <- as.data.frame(read.csv("https://raw.githubusercontent.com/tmatis12/datafiles/main/normtemp.csv"))
male <- dat[1:65,3]
female <- dat[66:130,3]

summary(male)

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

sd(male)

## [1] 5.875184

hist(male, main ="Histogram of male beats",col="blue", xlab = "male heart beat")

qqnorm(male, main ="Normal distribution of male beats", xlab = "male heart beat")

This histogram looks like a normal distribution.Heart beats between 70-75 has the highest frequency.

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, main ="Histogram of female beats", col="pink", xlab = "female heart beat")

qqnorm(female, main ="Normal distribution of female beats", xlab = "female heart beat")

Heart beats between 75-80 has the highest frequency.

boxplot(male, female, main= "Box plot of male/female beats", ylab= "male/female heart beat",names=c("Male","Female"))

Variation of female heart beats is more significant.

# All R code used in document
summary(male)
sd(male)

hist(male, main ="Histogram of male beats",col="blue", xlab = "male heart beat")
qqnorm(male, main ="Normal distribution of male beats", xlab = "male heart beat")

summary(female)
sd(female)

hist(female, main ="Histogram of female beats", col="pink", xlab = "female heart beat")
qqnorm(female, main ="Normal distribution of female beats", xlab = "female heart beat")

boxplot(male, female, main= "Box plot of male/female beats", ylab= "male/female heart beat",names=c("Male","Female"))