Изменения

> system.time(Sys.sleep(1))пользователь система прошло 0.003 0.004 1.000

nvec > x <- rnorm(10^7L)</syntaxhighlight> <syntaxhighlight lang="rsplus">system.time(mean(nvecx))пользователь система прошло 0.020 0.000 0.022> system.time(sum(nvecx) / length(nvecx))пользователь система прошло 0.013 0.000 0.013

> system.time(replicate(100, mean(nvecx)))пользователь система прошло 2.166 0.000 2.162> system.time(replicate(100, sum(nvecx) / length(nvecx)))пользователь система прошло 1.167 0.003 1.186

> system.time({ for (i in seq_len(100)) mean(nvecx)})пользователь система прошло 2.110 0.003 2.126> system.time({ for (i in seq_len(100)) sum(nvecx) / length(nvecx)})пользователь система прошло 1.070 0.000 1.085

> median(system.time(replicate(100, mean(nvecx)))[["elapsed"]])[1] 2.144