r - 是否可以计算 R 中的算术运算次数？

Question

可以使用 system.time 记录用于运行某些代码的时间。 .这是一个小例子:

system.time(
  mean(rnorm(10^6))
  )

但我不仅对时间感兴趣，而且对用于代码的算术运算(即 +、-、*、/)的数量感兴趣。

在上述情况下，很容易计算求和和除法的次数以获得平均值，但我想将其应用于的代码要复杂得多。

因此，我的问题是:R 中有没有计算算术运算次数的函数？

Answer 1

您可以跟踪感兴趣的 R 函数:

counter <- 0 

trace("+", at = 1, print = FALSE,
      tracer = quote(.GlobalEnv$counter <- .GlobalEnv$counter + 1))
#Tracing function "+" in package "base"
#[1] "+"

Reduce("+", 1:10)
#[1] 55

counter
#[1] 9

untrace("+")
#Untracing function "+" in package "base"

我不确定在这里计算 R 级调用有多大用处。许多(大多数？)函数使用 C 或 Fortran 代码甚至 BLAS 进行算术运算。而且我没有计算编译代码中调用的解决方案。如果可能的话，您需要在编译期间进行设置。