one-classs SVM

超平面という中二病的境界線を引く。
本当は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)