Geek asks and answers

Storing tic toc values ​​in R

I am looking for a way to store runtime in a variable in R. In MATLAB, you can do something line by line:

crosses;
...
x = TOC;

and then the run time is stored in the variable x. I tried to do the same with the tic () toc () function in R obtained from the MATLAB package, without success. Also, I don't see how this can be done using the system.time () function for R. Any help here is much appreciated.

+5
source share
4 answers

Use the built-in function system.time:

tm1 <- system.time(
{
  #your code here
})

or alternatively benchmarkfrom a package rbenchmark:

tm2 <- benchmark(
{
  #your code here
}, replications=1)
+12
source

tic toc, , . :

start <- Sys.time ()
do.something ()
Sys.time () - start
+12

, 'titoc '.

tic("timer")
1+1
toc(log = TRUE, quiet = TRUE)
log.txt <- tic.log(format = TRUE)
tic.clearlog()

log.txt. unlist(log.txt) , .

,

+2

tictoc , .

, log.

library(tictoc)
tic.clearlog()
for (x in 1:10) {
    # passing x to tic() makes it a label at time of the matching toc() call.
    tic(x)
    Sys.sleep(1)
    # When log = TRUE, toc() pushes the measured timing to a list
    # quiet = TRUE prevents from printing the timing
    toc(log = TRUE, quiet = TRUE)
}

toc() . ​​

log.txt <- tic.log(format = TRUE)

Retrieve a list containing dimensions in raw format.

log.lst <- tic.log(format = FALSE)

Since the data has already been extracted, clear the tictoc log.

tic.clearlog()

Convert list items to timings. Each list item has a start ( tic) and end ( toc) timestamp.

timings <- unlist(lapply(log.lst, function(x) x$toc - x$tic))

Calculate the average cycle time.

mean(timings)
# [1] 1.001

Print the text output - note that prefixes are values x.

writeLines(unlist(log.txt))
# 1: 1.002 sec elapsed
# 2: 1 sec elapsed
# 3: 1.002 sec elapsed
# 4: 1.001 sec elapsed
# 5: 1.001 sec elapsed
# 6: 1.001 sec elapsed
# 7: 1.001 sec elapsed
# 8: 1.001 sec elapsed
# 9: 1.001 sec elapsed
# 10: 1 sec elapsed
+1
source

More articles:


All Articles