R 中的 SVM PSO 优化

Question

我正在 R 中进行 PSO 优化，以优化 SVM 参数 gamma、epsilon 和 C。我可以优化一个变量，但是当我使用多个变量时出现此错误。

调谐错误（svm，Train_Input_NonNorm，Train_Target_NonNorm，内核=“径向”，： 缺少参数“C”，没有默认值

SVM_Nonnorm_Optim_f <- function(E,C,G)
{
set.seed(123)
SVM_NonNorm_Tune <-tune(svm,Train_Input_NonNorm,Train_Target_NonNorm, kernel="radial",ranges= 
list(epsilon = E, cost = C, gamma=G))

SVM_NonNorm_tuned <- SVM_NonNorm_Tune$best.model

Predict_SVM_NonNorm_tuned <- predict(SVM_NonNorm_tuned,Train_Input_NonNorm)

RMSE_SVM_NonNorm_tuned <- sqrt(mean((Train_Target_NonNorm - Predict_SVM_NonNorm_tuned)^2))

return(RMSE_SVM_NonNorm_tuned)

}

n <- 50 
m.l <- 50 
w <- 0.95 
c1 <- 2 
c2 <- 2 
xmin <- 0 
xmax <- 1000 
vmax <- c(4, 4) 

SVM_NonNorm_PSO <- psoptim(SVM_Nonnorm_Optim_f, n=n, max.loop=m.l, w=w, c1=c1, c2=c2,
               xmin=xmin, xmax=xmax, vmax=vmax, seed=5, anim=FALSE)`