R_SupportVectorMachines - RとLinuxと...

RとLinuxと...


R_SupportVectorMachines

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])

# ここで最後の +1 は,直前の %in% を含む式(の結果生成される TRUE と FALSE からなる Logical なベクトル)全体にかかる.すなわち 0 か 1 という数値のベクトルに変換する.

 
Link: Rの備忘録(1823d) R_VectorRecyle(4096d)
Last-modified: 2007-09-28 (金) 12:30:52 (4096d)