Profiling results for /tmp/RtmpYOmS6A/file2dc460f76854

LineCodeExecution time
1
f1 <-
2
function() {
3
    nSamples = 1000
4
    nReplicates = 100
5
    data = rpois(nSamples, lambda = 20)
6
    for (i in 2:nSamples) {
7
        data = rbind(data, rpois(nSamples, lambda = 20))
8
    }
9
    apply(data, 1, mean)
10
}