Assignment # 12

data=c(145,621,262,208,362,424,339,736,291,58,498,643,390,332,750,368,659,234,396,300,343,536,534,217,298,1103,406,254,862,204,206,250,21,298,350,800,726,370,536,291,808,543,149,350,242,198,213,296,317,482,155,802,200,282,573,388,250,396,572)

sort(data)

##  [1]   21   58  145  149  155  198  200  204  206  208  213  217  234  242
## [15]  250  250  254  262  282  291  291  296  298  298  300  317  332  339
## [29]  343  350  350  362  368  370  388  390  396  396  406  424  482  498
## [43]  534  536  536  543  572  573  621  643  659  726  736  750  800  802
## [57]  808  862 1103

median(data)

## [1] 350

fivenum(data)

## [1]   21  250  350  536 1103

Q1=250
Q3=536

myIQR=Q3-Q1

myIQR

## [1] 286

STEP=1.5*myIQR

STEP

## [1] 429

summary(data)

##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
##      21     250     350     404     536    1100

boxplot(data,
        horizontal=TRUE,
        col="purple",
        main="CEO Salaries")