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]