Вы можете использовать анонимную функцию в replicate
, чтобы получить статистику из повторных розыгрышей из распределения:
replicate(5, {function(x) c(mean=mean(x),sd=sd(x))}(rnorm(10,5,5)))
[,1] [,2] [,3] [,4] [,5]
mean 5.372839 4.042219 4.145441 5.148652 5.202886
sd 3.929017 5.190347 4.802461 5.515714 4.173267