würd eure Hilfe brauchen.
Folgende Aufgabenstellung:
"Conduct a simulation where you randomly sample from a uniform distribution. Create a vector with the means of random samples coming from a uniform distribution. Let's run a simulation for differen sample sizes: n=40, n=400 and n=4000. Calculate the mean and standard deviation of sample means for each sample size. Finnaly, plot the distribution of the sample means for each sample size.
Are the results corresponding to any of the large sample theorems? If yes, which one? Interpret the plots".
So weit so gut.... Ich wäre so vorgegangen:
Code: Alles auswählen
# sample size n=40
sims <- 1000
n <- 40
sim_means <- rep(NA, sims)
for (i in 1:sims) {
sim_sample <- runif(n)
sim_means[i] <- mean(sim_sample)
}
MeanOfSampleMeans <- mean(sim_means)
SdOfSampleMeans <- sd(sim_means)
PlotOfSampleMeans <- plot(density(sim_means))
###############################################
# Sample size n= 400
n2 <- 400
sim_means2 <- rep(NA, sims)
for (i in 1:sims) {
sim_sample2 <- runif(n2)
sim_means2[i] <- mean(sim_sample2)
}
MeanOfSampleMeans2 <- mean(sim_means2)
SdOfSampleMeans2 <- sd(sim_means2)
PlotOfSampleMeans2 <- plot(density(sim_means2))
###############################################
#sample size n=4000
n3 <- 4000
sim_means3 <- rep(NA, sims)
for (i in 1:sims) {
sim_sample3 <- runif(n)
sim_means3[i] <- mean(sim_sample3)
}
MeanOfSampleMeans3 <- mean(sim_means3)
SdOfSampleMeans3 <- sd(sim_means3)
PlotOfSampleMeans3 <- plot(density(sim_means3))