Question 1c

pnorm(125,112,6.8)-pnorm(90,112,6.8)
## [1] 0.9714392

Question 1d

qnorm(0.95,112,6.8)
## [1] 123.185

Question 4b table:

dbinom(0,5,0.08)
## [1] 0.6590815
dbinom(1,5,0.08)
## [1] 0.2865572
dbinom(2,5,0.08)
## [1] 0.04983603
dbinom(3,5,0.08)
## [1] 0.004333568
dbinom(4,5,0.08)
## [1] 0.000188416
dbinom(5,5,0.08)
## [1] 3.2768e-06

Question 5a histogram

data <- c(35,41,55,65,29,60,49,24,37,110,28,40,47,58,30,37,15,50,28)
hist(data, xlab = "deaths")

Question 5b

summary(data)
##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
##   15.00   29.50   40.00   44.11   52.50  110.00
sd(data)
## [1] 20.84038

Question 5c boxplot

boxplot(data, horizontal = TRUE)

Question 6b

pnorm(3100,3000,400/sqrt(50))-pnorm(2900,3000,400/sqrt(50))
## [1] 0.9229001

Question 6c.

pnorm(2900.5,3000,400/sqrt(50))
## [1] 0.03929486

Question 6d.

qnorm(0.85,3000,400/sqrt(50))
## [1] 3058.63