# 函数：
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) #如果是用脚本执行，此行代码可以用 print(f(time1)) 代替
# R记录程序运行时间
classiftime1 <- proc.time() # record classification time
#这里是需要记录时间的代码
# 比如用支持向量机做分类
svm211 <-svm(Yc1~., data = hvsplit1 , # without selected festures class~., data = hvc1,
scale = TRUE,
type = "C-classification",
kernel ="radial",
gamma = 0.9 , # 1/ncol(hvsplit1)
cost = 300,
class.weights = NULL,
cachesize = 10,
tolerance = 0.1,
epsilon = 0.1,
shrinking = TRUE,
cross = 10,
probability = TRUE,
fitted = TRUE,
na.action = na.omit,
metric="ROC")
#
classiftime <- proc.time() - classiftime1