Hello,

I am trying to plot a graph to show that as sample size increases the difference between the sample mean and pop mean approaches 0.I have reached this far:

```
# Generate multiple samples and compare mean:
random <- data.frame(x = rnorm(1:100000))
sample_means <- data.frame(x = 1:1000)
for (i in 1:1000){
sample <- random[sample(1:nrow(random), 100,
replace=FALSE),]
sample_means[i,] <- mean(sample)
}
hist(random$x)
hist(sample_means$x)
diff_means <- abs(mean(random$x))- abs(mean(sample_means$x))
```

Now what I want is to give different sample sizes and get the differences and store them somewhere.Then use this data to get a plot which shows that as sample size increases the difference approaches 0.

Can someone please help me with this??