Skip to content

Instantly share code, notes, and snippets.

@olliefr
Last active May 20, 2016 13:19
Show Gist options
  • Save olliefr/13a03dffbcb8b6d805280c9afaab157a to your computer and use it in GitHub Desktop.
Save olliefr/13a03dffbcb8b6d805280c9afaab157a to your computer and use it in GitHub Desktop.
Brain teaser - using the Central Limit Theorem.
m <- 400 * 0.5 #mean
v <- 400 * 0.25 #variance
s <- sqrt(v) #stdev
p <- 1 - pnorm(219, m, s)
print(round(p, digits=2))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment