R代码：将经过时间保存为具有一致比例的单个数字

Question

在R中，我试图保存一些代码行的经过时间（而不是函数执行）。但是，我无法将其归结为具有一致比例的单个数字（例如，总共秒数）。例如，我尝试过：

starttime <- Sys.time() 
... 
timeelapsed <- as.Double(Sys.time()-starttime)

问题在于，时间间隔可以表示秒，分钟或其他一些时间单位，具体取决于经过的实际时间。

Answer 1

尝试：

as.numeric(Sys.time() - starttime, units = "secs")

您可以按照"mins", "hours", "days", "weeks"文档的说明将单位指定为?difftime。

Sys.time() - starttime本质上是difftime类，因为它是两个POSIXct对象的减法

Answer 2

试试这段代码：

starttime=Sys.time()
..
..
..
endtime=Sys.time()
timeelapsed=difftime(as.POSIXct(endtime),as.POSIXct(starttime),units="secs")

•单位可以采取：“自动”，“秒”，“分钟”，“小时”，“天”，“周”

•可以使用as.numeric（timeelapsed）

访问timeelapsed的值