rounding

references:
- ISI, example 7.2, p.388

library(tidyverse)
library(knitr)

data

rounding <- read.delim("FirstBase.txt")
str(rounding)
## 'data.frame':    22 obs. of  2 variables:
##  $ narrow: num  5.5 5.7 5.6 5.5 5.85 5.55 5.4 5.5 5.15 5.8 ...
##  $ wide  : num  5.55 5.75 5.5 5.4 5.7 5.6 5.35 5.35 5 5.7 ...
rounding <- rounding %>%
  mutate(diff = narrow - wide)
str(rounding)
## 'data.frame':    22 obs. of  3 variables:
##  $ narrow: num  5.5 5.7 5.6 5.5 5.85 5.55 5.4 5.5 5.15 5.8 ...
##  $ wide  : num  5.55 5.75 5.5 5.4 5.7 5.6 5.35 5.35 5 5.7 ...
##  $ diff  : num  -0.05 -0.05 0.1 0.1 0.15 ...
tbl <- rounding %>%
  summarize(x.bar.d = mean(diff),
            s.d = sd(diff),
            n.d = n())
kable(tbl)
x.bar.d s.d n.d
0.075 0.0883041 22

dot plot

ggplot(rounding, aes(diff)) +
  geom_dotplot(fill = "darkred", dotsize = 0.8) +
  labs(title = "Rounding First Base")