### 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`