R语言中如何记录程序运行的时间

001、

start <- Sys.time()    ## 记录时间
Sys.sleep(70)          ## 程序运行
end <- Sys.time()      ## 记录时间
difftime(end, start, units = "sec")     ## 以秒表示
difftime(end, start, units = "min")     ## 以分钟表示
difftime(end, start, units = "hour")    ## 以小时表示

002、

start <- proc.time()        ## 记录系统时间
Sys.sleep(70)               ## 程序
end <- proc.time()          ## 记录系统时间
end - start                 ## 计算时间
(end - start)[3]