"RWeka"意思決定ツリーをRの "パーティ"ツリーに変換するにはどうすればよいですか？

Question

私はR5でRWekaパッケージを使って、 "M5P"を使ってM5 'ツリーをデータセットに収めています。次に、生成されたツリーを「パーティー」ツリーに変換して、可変のインポートにアクセスできるようにします。私が午前問題は、私は次のエラーを取得せずに動作するように機能as.partyを得るように見えることができないということです。

"Error: all(sapply(split, head, 1) %in% c("<=", ">")) is not TRUE" 

この私がforループ内の関数を適用する場合にのみに発生するエラーが、forループ私は5倍交差検証を実行しているので必要です。

n <- nrow(data) 

k <- 5 

indCV <- sample(rep(1:k,each=ceiling(n/k)), n) 


for(i in 1:k){ 

#Training data is for all the observations where indCV is not equal to i 

training_data <- data.frame(x[-which(indCV==i),]) 

training_response <- y[-which(indCV==i)] 

#Test the data on the fifth of the data where the observation indices are equal to i 

test_data <- x[which(indCV==i),] 

test_response <- y[which(indCV==i)] 

#Fit a pruned model to the training data 

fit <- M5P(training_response~., data=training_data, control=Weka_control(N=TRUE)) 

#Convert to party 

p <- as.party(fit) 
} 

Answer 1

RWekaパッケージはpartyオブジェクトにM5Pツリーを変換するための例があります以下

私が実行されているコードです。 example("M5P", package = "RWeka")を実行すると、ツリーの視覚化は実際にはpartykitで描画されます。例を実行した後は、plot(m3)とas.party(m3)を参照してください。

ただし、J48の場合は完全に本物のconstpartyオブジェクトを取得できますが、M5Pの場合も同じです。後者の場合、ツリー構造自体はpartyに変換できますが、ノード内の線形モデルは完全には直接lmオブジェクトに変換されるわけではありません。したがって、party表現を使用して、ツリー構造のみに依存するメジャー（例えば、分割、分割数、分割点などに使用される変数）を計算する場合は、そうすることができます。しかし、モデルや予測（例えば、二乗平均誤差など）に依存する尺度を計算したい場合、partyクラスはあまり役に立ちません。