##Make data vector called milk

milk = c(28, 56.5, 89.8, 110.1, 65.6, 63.7, 82.6, 75.1, 91.5, 102.9, 44.4, 108.1)
smilk = sort(milk)

##Find median of milk data

median(milk)
## [1] 78.85

##Find quartiles of milk data

smilk
##  [1]  28.0  44.4  56.5  63.7  65.6  75.1  82.6  89.8  91.5 102.9 108.1 110.1
#sorted milk data from console
Q1 = c(28.0,44.4,56.5,63.7,65.6,75.1)
Q3 = c(82.6,89.8,91.5,102.9,108.1,110.1)
#quartile vectors
median(Q1)
## [1] 60.1
median(Q3)
## [1] 97.2

##create boxplot of milk data

boxplot(milk)