Это должно сработать:
library(e1071)
df <- data.frame("x1"=c(1,2,3),"x2"=c(4,5,6),"x3"=c(7,8,9),"x4"=c(1,0,1))
#SVM model
model <- svm(x4 ~ x2 + x3, data = df)
summary(model)
#Model predictions
pred <- predict(model, subset(df,select=c(x2,x3)))
print(pred)
В частности, я думаю, что функция subset
- это то, что вы ищете:
subset(df,select=c(x2,x3))