Determine the Five-Number Summary

Load Table 17.

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

##    Time
## 1 19.95
## 2 28.58
## 3 33.23
## 4 23.25

Now, use the fivenum( ) command.

fivenum(Table17$Time)

## [1] 19.95 26.28 30.95 37.05 54.63

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

Table17a <- c(19.95, 23.25, 23.32, 25.55, 25.83, 26.28, 28.58, 28.72, 30.18, 30.35, 30.95, 32.13, 33.23, 33.53, 36.68, 37.05, 37.43, 41.42, 42.47, 49.17, 54.63)

fivenum(Table17a)

## [1] 19.95 26.28 30.95 37.05 54.63

Or, you could use favstats( ) from Mosaic.

library(mosaic)
favstats(~Time, data=Table17)

##    min    Q1 median    Q3   max     mean       sd  n missing
##  19.95 26.28  30.95 37.05 54.63 32.89048 8.684702 21       0