exercise

references:
- ISI, exploration 7.2, p.395
- jumping jack, YouTube
- bicycle kicks, eHow
- how to measure your pulse, National Emergency Medical Association

library(tidyverse)
library(knitr)

hypotheses

Define \(\mu_d\).

SOLUTION:

\[\mu_d = 0\] \[\mu_d \not= 0\]

data

exercise <- read.delim("JJvsBicycle.txt")
exercise <- mutate(exercise, diff = JJ - bicycle)
str(exercise)
## 'data.frame':    22 obs. of  3 variables:
##  $ JJ     : int  118 146 134 94 146 114 132 118 116 101 ...
##  $ bicycle: int  118 124 92 80 111 112 124 124 97 82 ...
##  $ diff   : int  0 22 42 14 35 2 8 -6 19 19 ...

dot plot

ggplot(exercise, aes(diff)) +
  geom_dotplot(fill = "darkred", dotsize = 0.8) +
  labs(title = "Exercise")