Блог

Я хотел бы собирать тайминги из разных частей кода в файле журнала, используя пакет tictoc в R. Интересно, можно ли использовать tic() / toc() внутри функции и собирать время также там? Код, который я имею в виду, выглядит следующим образом:

 tic("Total time")

tic("time: 1")
A <- matrix(1.0, 5000, 5000)
toc(log = TRUE)

func1 <- function(B) {
tic("time: 2")
  r <- sum(B[1,])
toc(log = TRUE)
  return(r)
}

result <- func1(A)

toc(log = TRUE)
tic.log(format = TRUE)
 

Спасибо