ツリー・モデル(決定木、回帰木):R言語

分析に使われる場面

ライブラリとデータの読み込み

  • ライブラリの読み込み
    library(MASS)
  • データの読み込み
    yotei <- read.table("yotei0.txt",sep=",",header=T)
    summary(yotei)

線形判別分析

  • lda()関数による非線形判別分析
    # yotei.lda <- lda(YOTEI~GEND+AGE+LASTY, data=yotei, CV=TRUE)
    yotei.lda <- lda(YOTEI~GEND+AGE+LASTY, data=yotei, CV=FALSE)
    yotei.lda 
  • クロスバリデーション
    table(yotei$YOTEI, predict(yotei.lda)$class) # lda(..., CV=FALSE)の場合
    # table(yotei$YOTEI, yotei.lda$class) # lda(..., CV=TRUE)の場合
plot(yotei.lda)

非線形判別分析

  • qda()関数による非線形判別分析
    # yotei.qda <- qda(YOTEI~GEND+AGE+LASTY, data=yotei, CV=TRUE)
    yotei.qda <- qda(YOTEI~GEND+AGE+LASTY, data=yotei, CV=FALSE)
    yotei.qda 
    # table(yotei$YOTEI, yotei.qda$class)
    table(yotei$YOTEI, predict(yotei.qda)$class)

k最近傍法による判別分析

  • knn()関数
    library(class)
    yotei0 <- yotei[,-5]; yotei0 <- yotei0[,-1]
    yotei.train <- yotei0[1:1000,]
    yotei.test <- yotei0[1001:2000,]
    yotei.knn <- knn(yotei.train[,-3],yotei.test[,-3],yotei.train[,3],k=1)

ナイーブベイズによる判別分析

  • klaR()関数
    library(klaR)
    yotei.klaR <- NaiveBayes(YOTEI~GEND+AGE+LASTY, data=yotei)
    yotei.klaR.pred <- predict(yotei.klaR)
    table(yotei$YOTEI, yotei.klaR.pred$class)

トップ   編集 凍結解除 差分 バックアップ 添付 複製 名前変更 リロード   新規 一覧 単語検索 最終更新   ヘルプ   最終更新のRSS
Last-modified: 2009-02-04 (水) 18:06:57 (3598d)