Question

我正在R中运行朴素贝叶斯分类算法。我想计算算法的执行时间。我可以使用

Start_time <- proc.time()
{                
  #execution of naive bayes classifier
}
End_time <- proc_time()
Exec_time = End_time - Start_time

查找执行时间。是计算算法执行时间的正确方法吗？

Answer 1

您可以使用软件包 microbenchmark 或 rbenchmark 来测试代码。

首先定义一个函数：

myfunction <- function(){}

然后定义该功能应运行多少次

n <- 10

以下是使用 microbenchmark 的示例：

microbenchmark::microbenchmark(myfunction(),times=n) #run your function "n" times

以下是使用 rbenchmark 的示例：

rbenchmark::benchmark(myfunction(),replications=n) #run your function "n" times

对于这两个软件包，您都可以使用运算符<-获得结果。例如：

microbenchmark::microbenchmark(a<-myfunction(),times=n) # result is in variable "a"
rbenchmark::rbenchmark(a<-myfunction(),times=n) # result is in variable "a"

如何在R中找到分类算法的执行时间？

1 个答案: