bicycle

references:
- ISI, example 6.2, p.331

library(tidyverse)
library(knitr)

data

bicycle <- read.delim("BikeTimes.txt")
str(bicycle)
## 'data.frame':    56 obs. of  2 variables:
##  $ Frame: Factor w/ 2 levels "carbon","steel": 1 1 1 1 1 1 1 1 1 1 ...
##  $ Time : num  116 114 119 123 112 ...
tbl <- bicycle %>%
  group_by(Frame) %>%
  summarize(mean = mean(Time),
            s = sd(Time),
            n = n())
kable(tbl)
Frame mean s n
carbon 108.3436 6.248036 26
steel 107.8089 4.891712 30

dot plots

ggplot(bicycle, aes(Time)) +
  geom_dotplot(fill = "darkred", dotsize = 0.8) +
  facet_grid(Frame ~ .) +
  labs(title = "Bicycle")