This preview has intentionally blurred sections. Sign up to view the full version.
View Full Document
Unformatted text preview: for (i in 1:500) { means[i] < mean(runif(2)) } plot(0,0,type="n", xlim=c(0,1), ylim=c(0,10), xlab="density estimate", ylab="f(x)") lines(density(means)) means < c() for (i in 1:500) { means[i] < mean(runif(10)) } lines(density(means)) means < c() for (i in 1:500) { means[i] < mean(runif(17)) } lines(density(means)) means < c() for (i in 1:500) { means[i] < mean(runif(25)) } lines(density(means)) means < c() for (i in 1:500) { means[i] < mean(runif(50)) } lines(density(means)) means < c() for (i in 1:500) { means[i] < mean(runif(100)) } lines(density(means))...
View
Full Document
 Spring '09
 Agniel

Click to edit the document details