代码之家 › 专栏 › 技术社区 › Shahzad

在R中使用tryCatch

svm r

Shahzad · 技术社区 · 13 年前

使用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会返回一个空模型(这可能有几个原因)。在这种情况下,如果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

1 回复 | 直到 13 年前

agstudy 13 年前

这应该起作用:

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")
})

推荐文章

Amp · 使用R ggplot2删除geom_radial中axis.line和panel.border之间的空格

1 年前

Hard_Course · 用另一列中的值替换行的最后一个非NA条目

1 年前

Mark R · 使用geom_sf()删除地球仪上不需要的网格线

1 年前

Joe · 根据对工作日和本周早些时候的日期的了解,找到一个日期

1 年前

Ben · 统计向量中的单词在字符串中出现的频率

1 年前

TheCodeNovice · R中符号格式的尾随零和其他问题[重复]

1 年前

katefull06 · 在R中使用terra修改范围时,会为单独的SpatRaster重写范围

1 年前

dez93_2000 · 在R管道子功能中引用管道对象的当前状态

1 年前

accibio · 在ggplot2中为同一变量创建两个连续的颜色渐变比例

1 年前

Mankka · 如何在Ggplot2中绘制均匀的径向图

1 年前