Mesure du temps d'exécution des fonctions dans R

Question

Existe-t-il une manière standardisée en R de mesurer le temps d'exécution d'une fonction ?

Évidemment, je peux prendre system.time avant et après l'exécution et ensuite prendre la différence entre les deux, mais j'aimerais savoir s'il existe une méthode ou une fonction standardisée (j'aimerais ne pas inventer la roue).

---

Je crois me souvenir que j'ai déjà utilisé quelque chose de semblable à ce qui suit :

somesysfunction("myfunction(with,arguments)")
> Start time : 2001-01-01 00:00:00  # output of somesysfunction
> "Result" "of" "myfunction"        # output of myfunction
> End time : 2001-01-01 00:00:10    # output of somesysfunction
> Total Execution time : 10 seconds # output of somesysfunction

Answer 1

Une autre façon de procéder serait d'utiliser Sys.time() :

start.time <- Sys.time()
...Relevent codes...
end.time <- Sys.time()
time.taken <- end.time - start.time
time.taken

Ce n'est pas la façon la plus élégante de le faire, par rapport à la réponse ci-dessus, mais c'est une façon de le faire.

Answer 2

La fonction intégrée system.time() le fera.

Utilisez comme : system.time(result <- myfunction(with, arguments))

Answer 3

Comme l'a dit Andrie, system.time() fonctionne bien. Pour les fonctions courtes, je préfère mettre replicate() en elle :

system.time( replicate(10000, myfunction(with,arguments) ) )

Answer 4

Une façon un peu plus agréable de mesurer le temps d'exécution est d'utiliser la fonction rbenchmark paquet. Ce paquet vous permet (facilement) de spécifier combien de fois vous devez reproduire votre test et quel doit être le point de référence relatif.

Voir aussi une question connexe à stats.stackexchange

Answer 5

Vous pouvez utiliser le style MATLAB tic - toc fonctions, si vous préférez. Voir cette autre question sur la SO

Fonction chronomètre dans R