blog.R

library(dplyr)

bandori <- read.csv("~/rwork/bandori.csv")

bandori <- bandori %>%
  mutate(MISS = (FAST + SLOW) / (PERFECT + FAST + SLOW) * 100)

hist(bandori$MISS, breaks = seq(0, 20, 1))

dens <- density(bandori$MISS)
lines(dens, lwd = 3, col = "blue")

shapiro.test(bandori$MISS)