アールメカブ

• バックアップ一覧
• 差分 を表示
• 現在との差分 を表示
• バックアップ を表示
• R_SupportVectorMachines へ行く。
  • 1 (2007-09-28 (金) 12:26:23)

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