记录程序运行的时间
f <- function(start_time) { start_time <- as.POSIXct(start_time) dt <- difftime(Sys.time(), start_time, units="secs") # Since you only want the H:M:S, we can ignore the date... # but you have to be careful about time-zone issues format(.POSIXct(dt,tz="GMT"), "%H:%M:%S") } #how to use: time1<-Sys.time() #... f(time1)
posted on 2016-04-01 09:40 MartinChau 阅读(131) 评论(0) 编辑 收藏 举报