1

使用 e1071，可以调整 SVM 模型的参数

svmmodels <- lapply(trainingtemp, function(data)
                    {
                      svm.tune <- tune.svm(label~., data=data,
                                           gamma=10^(-3:0), cost=10^(-3:3));
                      svm(label~., data=data,
                          method="C-classification",
                          kernel="radial", cost=svm.tune$best.parameters$cost, 
                               gamma=svm.tune$best.parameters$gamma)
                    })

但是对于某些数据，tune.svm 返回一个空模型（可能有几个原因）。在这种情况下如何使用 tryCatch，如果 tune.svm 返回以下错误消息，那么可以使用 svm 函数中的默认参数。

Error in predict.svm(ret, xhold, decision.values = TRUE) : 
 Model is empty!
Calls: lapply ... svm.formula -> svm.default -> na.action -> predict -> predict.svm
Execution halted
4

1 回答 1

2

这应该有效：

tryCatch(
     svm.tune <- tune.svm(label~., data=data,
                            gamma=10^(-3:0), cost=10^(-3:3))
     svm(label~., data=data,
                      method="C-classification",
                      kernel="radial", cost=svm.tune$best.parameters$cost, 
                           gamma=svm.tune$best.parameters$gamma)
}, error = function(err) {
  ## here you can your svm with defualt parameter 
   svm(label~., data=data,
                      method="C-classification",
                      kernel="radial")
})
于 2013-03-01T14:02:07.540 回答