Skip to content

Instantly share code, notes, and snippets.

@yaasita
Created January 25, 2022 18:23
Show Gist options
  • Save yaasita/7c431d0493c9703c91d0a013d03349af to your computer and use it in GitHub Desktop.
Save yaasita/7c431d0493c9703c91d0a013d03349af to your computer and use it in GitHub Desktop.
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)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment