My question was inspired by this post which concerns some of the myths and misunderstandings surrounding the Central Limit Theorem. I was asked a question by a colleague once and I couldn't offer an adequate response/solution.
My colleague's question: Statisticians often cleave to rules of thumb for the sample size of each draw (e.g., $n = 30$, $n = 50$, $n = 100$, etc.) from a population. But is there a rule of thumb for the number of times we must repeat this process?
I replied that if we were to repeat this process of taking random draws of "30 or more" (rough guideline) from a population say "thousands and thousands" of times (iterations), then the histogram of sample means will tend towards something Gaussian-like. To be clear, my confusion is not related to the number of measurements drawn, but rather the number of times (iterations) required to achieve normality. I often describe this as some theoretical process we repeat ad infinitum.
Below this question is a quick simulation in R. I sampled from the exponential distribution. The first column of the matrix X
holds the 10,000 sample means, with each mean having a sample size of 2. The second column holds another 10,000 sample means, with each mean having a sample size of 4. This process repeats for columns 3 and 4 for $n = 30$ and $n = 100$, respectively. I then produced for histograms. Note, the only thing changing between the plots is the sample size, not the number of times we calculate the sample mean. Each calculation of the sample mean for a given sample size is repeated 10,000 times. We could, however, repeat this procedure 100,000 times, or even 1,000,000 times.
Questions:
(1) Is there any criteria for the number of repetitions (iterations) we must conduct to observe normality? I could try 1,000 iterations at each sample size and achieve a reasonably similar result.
(2) Is it tenable for me to conclude that this process is assumed to be repeated thousands or even millions of times? I was taught that the number of times (repetitions/iterations) is not relevant. But maybe there was a rule of thumb before the gift of modern computing power. Any thoughts?
pop <- rexp(100000, 1/10) # The mean of the exponential distribution is 1/lambda
X <- matrix(ncol = 4, nrow = 10000) # 10,000 repetitions
samp_sizes <- c(2, 4, 30, 100)
for (j in 1:ncol(X)) {
for (i in 1:nrow(X)) {
X[i, j] <- mean(sample(pop, size = samp_sizes[j]))
}
}
par(mfrow = c(2, 2))
for (j in 1:ncol(X)) {
hist(X[ ,j],
breaks = 30,
xlim = c(0, 30),
col = "blue",
xlab = "",
main = paste("Sample Size =", samp_sizes[j]))
}