f2 <-
function() {
nSamples = 1000
nReplicates = 100
data = replicate(n = nReplicates,
rpois(nSamples, lambda = 20))
apply(data, 1, mean)
}