超平面という中二病的境界線を引く。
本当はtuningが必要らしいのだが、今回は無視。
#one class SVM library(e1071) #non-supervised svm0 <- svm(data0, type="one-classification") pred0 <- predict(svm0, data0) pred0 plot(data0, pch=16, col=(!pred0) + 1) plot3d(data0, type="n") text3d(data0, texts=seq(nrow(data0)), col=(!pred0) + 1)
教師なし学習で判別しようとするとドンマイな結果。
異常値スコアも出せることがわかった。
#anomaly score plot(svm0$decision.value, pch=16, col=cols) abline(v=87, lty=2)