Reaction Time

Info about reaction time:

http://condellpark.com/kd/reactiontime.htm

Youtube video:

https://www.youtube.com/watch?v=Cxn7yaOfEoY

Reaction time:

http://ww2.amstat.org/education/cas/2.cfm

library(readxl)
mathclub <- read_excel("mathclub.xlsx")

library(ggplot2)
ggplot(mathclub, aes(x=time, y=person)) +
  geom_point()

library(ggplot2)
ggplot(mathclub, aes(y=time, x=person)) +
  geom_point() + 
  stat_summary(fun.y="mean", geom="point", color="red", size=3) +
  stat_summary(fun.y = "median", geom="point", color="blue", size=3) +
  coord_flip()

library(ggplot2)
ggplot(mathclub, aes(y=time, x=person)) +
  geom_boxplot() + 
  coord_flip()