Поддержка векторной машинной графики

Question

Я пытался построить классификацию SVM. Однако я столкнулся с проблемой, о которой я не знаю, как исправить. Я посмотрел документацию и несколько видео, но все еще застрял. Вот мой код

library(ISLR) 
svm.oj2 <- svm(Purchase~.,data=OJ,kernel='linear',cost=1,scale = F) 
plot(svm.oj2,data=OJ) 

Здесь ошибка:

Error in plot.svm(svm.oj2, data = OJ) : missing formula. 

Действительно признателен за любую помощь

Answer 1

Я думаю, что это то, что вы пытаетесь сделать:

library(ISLR) 
library(e1071) 
svm.oj2 <- svm(Purchase~.,data=OJ,kernel='linear',cost=1,scale = F) 

plot(OJ, col = 1:1000 %in% svm.oj2$index + 1)