#
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