Exercise2_3_10

library(tidyverse)

## -- Attaching packages ----------------- tidyverse 1.3.0 --

## v ggplot2 3.3.2     v purrr   0.3.4
## v tibble  3.0.3     v dplyr   1.0.2
## v tidyr   1.1.2     v stringr 1.4.0
## v readr   1.3.1     v forcats 0.5.0

## -- Conflicts -------------------- tidyverse_conflicts() --
## x dplyr::filter() masks stats::filter()
## x dplyr::lag()    masks stats::lag()

Make data vector AQS and find the mean

AQS <- c(24,14,15,13,21,15,14,26,16,20,13)
meanAQS <- mean(AQS)
meanAQS

## [1] 17.36364

Find the median of AQS

medAQS <- median(AQS)
medAQS

## [1] 15

#hist(AQS)
hist(AQS)
abline(v = medAQS, col = "red")
abline(v = meanAQS, col = "blue")