R 中 class 预测的更改阈值

Change threshold for class prediction in R

如何更改概率阈值以在 R 中将 class 预测为 1。

rapidminer 中有应用阈值运算符。我怎样才能在 R 中实现同样的目标?

svm_model1 <- svm(x,y,probability = TRUE)
summary(svm_model1)
pred <- predict(svm_model1,x,probability = TRUE)

该模型将概率向量作为输出,仅在二元分类的情况下将输出与阈值进行比较。