Discussion :

[seb1122]

Bonjour tout le monde,

Ma question est toute simple, je cherche une commande pour calculer le temps de calcul entre plusieurs lignes d'un script R, à la façon de "tic (instructions) toc", que l'on peut trouver sur Matlab.

J'ai cherché mais en vain.
Merci d'avance.

[seb1122]

Excusez-moi d'avance.
Je n'avais pas pensé à faire une recherche dans le forum avant.
Vous m'excuserez, j'espère car c'est la première fois que je vais sur ce forum.
Voilà le lien, si certains qui passent ici plus tard seraient intéressés.

http://www.developpez.net/forums/d64.../temps-calcul/


Et je copie-colle la réponse qui avait été donnée à l'époque :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
## Pour une expression simple :
> system.time(for(i in 1:100) mad(runif(1000)))
utilisateur     système      écoulé 
       0.06        0.00        0.07 
 
## Pour des bouts de code plus conséquents :
> ptm <- proc.time()
> for (i in 1:50) mad(stats::runif(500))
> proc.time() - ptm
utilisateur     système      écoulé 
       0.03        0.00        0.22 
 
## Pour voir en détail le temps passé dans les sous-fonctions : 
> Rprof()
> for (i in 1:50) mad(stats::runif(500))
> Rprof(NULL)
 
> summaryRprof()
$by.self
               self.time self.pct total.time total.pct
mean                0.02       50       0.04       100
mean.default        0.02       50       0.02        50
mad                 0.00        0       0.04       100
median              0.00        0       0.04       100
median.default      0.00        0       0.04       100
 
$by.total
               total.time total.pct self.time self.pct
mean                 0.04       100      0.02       50
mad                  0.04       100      0.00        0
median               0.04       100      0.00        0
median.default       0.04       100      0.00        0
mean.default         0.02        50      0.02       50
 
$sampling.time
[1] 0.04

Mon problème est donc résolu.