> system.time(sapply(rnorm(1000000,0,1), function (x) round(x,2)))
   user  system elapsed 
   2.78    0.11    2.89 
> system.time(round(rnorm(1000000,0,1),2))
   user  system elapsed 
   0.29    0.00    0.30 

Eu estava tentando isso depois de ler as respostas para a pergunta sobre dicas R. Eu não esperava que a ordem fosse grandemente mais lenta que a função composta equivalente no caso acima. Alguém sabe por que esse é o caso? Se eu entendi corretamente, o sapply vetorizará e estará próximo da melhor maneira possível.