R言語でCHAIDを行いたい

Question

前提

R言語初心者です．
R言語を使って決定木アルゴリズムのCHAIDを利用したいのですが，うまくいきません．

発生している問題・エラーメッセージ

> treeModel <- chaid(data = Data)# CHAIDを実行
Error in step1internal(response, xvars[[i]], weights, indices[[i]], ctrl) : 
   is.factor(x) は TRUE ではありません 

該当のソースコード

library(CHAID) # ライブラリを読み込み
Data <- read.csv("E:/masato/study/lab/experiment/SQL/resurt/emp_type_pop.csv", header=T, stringsAsFactors=TRUE) # データを読み込み
cls <- read.csv("E:/masato/study/lab/experiment/cpp/cls/cls001_class.csv", header=T, stringsAsFactors=TRUE) # クラスを読み込み
cls <- cls[,colnames(cls) != "X"]
#Data$city_code <- as.character(Data$city_code)
cls$cls <- as.factor(cls$cls)
Data <- merge(Data,cls,by="city_code")
Data <- Data[,colnames(Data) != "city_code"]

for (i in 1:ncol(Data)) { # ループの始まり。データの列数を数えて同じ回数繰り返す
  if (class(Data[,i]) == "numeric") { # 条件分岐の始まり
    Data[,i] <- droplevels(cut(Data[,i], breaks = 5,include.lowest = TRUE))# ５分割する場合。量的データは、質的データに変換する。
  } # if文の処理の終わり
} # ループの終わり
treeModel <- chaid(cls ~ ., data = Data)# CHAIDを実行
plot(treeModel) # グラフにする。

補足情報（FW/ツールのバージョンなど）

Dataの中身はこのようになっています．

str(Data)

'data.frame': 499 obs. of 5 variables:
$ unemp : int 67749 49825 100513 95749 69178 48446 23085 12335 99148 21399 ...
$ general : int 27805 22223 40515 40775 28988 19127 8089 5426 43399 8277 ...
$ short : int 13410 9497 17173 17330 12980 7995 3492 2335 15816 3368 ...
$ temporary: int 587 424 757 694 509 381 147 101 695 126 ...
$ cls : Factor w/ 5 levels "0","1","2","3",..: 5 5 5 5 5 5 5 4 5 5 ...

CHAIDのインストールはこのように行いました．
install.packages("CHAID",repos="http://R-Forge.R-project.org")

Answer 1

解決しました．
CHAIDを使う際には，説明変数もFactor型にする必要があるのですが，そこの処理がうまく行っていなかったようです．

if (class(Data[,i]) == "numeric") { # 条件分岐の始まり

から

if (class(Data[,i]) == "integer") { # 条件分岐の始まり

と変更したらうまくいきました．
どうやら説明変数の型がnumericではなくintegerだったのが問題だったようです．