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 quantile( ) command.

quantile(Table16$Claim)

##       0%      25%      50%      75%     100% 
##   180.00   751.75  1805.00  4366.25 21147.00

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)

quantile(Table16a)

##       0%      25%      50%      75%     100% 
##   180.00   751.75  1805.00  4366.25 21147.00

Note, you could also use favstats( ) from the Mosaic package to get the quartiles.

library(mosaic)
favstats(~Claim, data=Table16)

##  min     Q1 median      Q3   max     mean       sd  n missing
##  180 751.75   1805 4366.25 21147 3874.444 5301.582 18       0