Skip to content

Instantly share code, notes, and snippets.

Embed
What would you like to do?
u <- c()
for (i in 1:10000) {
j <- sample(data, 10000)
u <- c(u, mean(j))
}
sqrt(var(u)) #=> 10.06759
quantile(u, c(0.05, 0.95))
#=> 5% 95%
#=> 26.65 59.10
hist(u)
sqrt(var(data)) #=> 1053.286
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment
You can’t perform that action at this time.