library(tidyverse)
library(purrrfect)
N <- 1000
(many_normal_samples <- parameters(~n, ~mu, ~sigma,
c(5, 10, 20), c(-2, 0, 2), c(2, 4)
)
%>% add_trials(N)
%>% mutate(ysample = pmap(list(n, mu, sigma), \(nn, m, s) rnorm(nn, m, s)))
%>% mutate(ybar = map_dbl(ysample, mean),
S2 = map_dbl(ysample, var)
)
) %>% head()# A tibble: 6 × 7
n mu sigma .trial ysample ybar S2
<dbl> <dbl> <dbl> <dbl> <list> <dbl> <dbl>
1 5 -2 2 1 <dbl [5]> -2.33 2.70
2 5 -2 2 2 <dbl [5]> -1.46 0.538
3 5 -2 2 3 <dbl [5]> -2.32 4.81
4 5 -2 2 4 <dbl [5]> -1.93 5.22
5 5 -2 2 5 <dbl [5]> -1.87 0.923
6 5 -2 2 6 <dbl [5]> -2.58 7.43