Determine Quartiles

Load Table 16.

Table16 <- read.csv("https://sullystats.github.io/Statistics6e/Data/Chapter3/Table16.csv")
head(Table16,n=4)

##   Claim
## 1  6751
## 2   189
## 3 10034
## 4  9908

Now, use the IQR( ) command.

IQR(Table16$Claim)

## [1] 3614.5

Or, manually enter the data using the c( ) command.

Table16a <- c(6751, 9908, 3461, 2336, 21147, 2332, 189, 1185, 370, 1414, 4668, 1953, 10034, 735, 802, 618, 180, 1657)

IQR(Table16a)

## [1] 3614.5