Strategic_4

7

your_data <- c(60, 63, 68, 68, 68,
               75, 75, 77, 79, 89, 
               89, 89, 93, 94, 98)
             
boxplot(your_data, horizontal = T)

fivenum(your_data)

## [1] 60 68 77 89 98

8

this_data <- c(110, 125, 140, 140,140,
               150, 152, 157, 160, 173, 
               173, 173, 180, 180,205)
             
boxplot(this_data, horizontal = T)

fivenum(this_data)

## [1] 110 140 157 173 205

9

my_data <- c(42, 43, 46, 46, 47,
             47, 48, 49, 49, 50,
             50, 51, 51, 51, 51,
             52, 52, 54, 54, 54,
             54, 54, 55, 55, 55,
             55, 56, 56, 56, 57,
             57, 57, 57, 58, 60,
             61, 61, 61, 62, 64,
             64, 65, 68, 69)

fivenum(my_data)

## [1] 42.0 50.5 54.5 57.5 69.0

boxplot(my_data, horizontal = T)

10

our_data <- c(7.2, 7.8, 7.8, 7.9, 8.1, 8.3,
              8.5, 8.6, 8.6, 8.6, 8.7, 8.8,
              9.0, 9.1, 9.2, 9.2, 9.2, 9.4,
              9.4, 9.6, 9.7, 9.7, 9.9, 9.9,
              10.0, 10.0, 10.0, 10.1, 10.2,10.3,
              10.3, 10.3, 10.3, 10.7, 10.7, 10.9,
              11.2, 11.2, 11.2, 11.3, 11.3, 11.3,
              11.5, 11.5, 11.7, 12.4, 12.5, 13.6,
              13.8, 14.4, 16.4)


fivenum(our_data)

## [1]  7.20  9.05 10.00 11.20 16.40

boxplot(our_data, horizontal = T)