Baayen p.174 より,古フランス語テキスト集合oldFrenchを,Genre(散文と韻文) にわける. genre.svm <- svm(oldFrench, oldFrenchMeta$Genre) # サポートベクトルを + で明示する plot(cmdscale(dist(oldFrench)), col = c("blue","red") [as.integer(oldFrenchMeta$Genre)], pch = c("o", "+")[1:nrow(oldFrenchMeta) %in% genre.svm$index + 1])