Set test parameters
reps <- 5000
n <- 1000
mu <- 100
sigma <- 15
reps |
Number of simulation replications |
5000 |
n |
Sample size |
1000 |
mu |
Population mean \(\left( \mu \right)\)
|
100 |
sigma |
Population standard deviation \(\left( \sigma \right)\)
|
15 |
Simulation
n <- rep(x = n, times = reps)
x <- lapply(
X = n,
FUN = rnorm,
mean = mu,
sd = sigma
)
std <- lapply(
X = x,
FUN = z,
mu = mu,
sigm = sigma
)
Summarize simulation
\(x\)
Mean |
100 |
99.994397 |
Standard deviation |
15 |
14.9942377 |
\(z\)
Mean |
0 |
-3.735359710^{-4} |
Standard deviation |
1 |
0.9996158 |