2016-12-01 5 views
0

私はglmtreeを構築しました。ツリーサマリーとプロットの両方にerrを表示したいと思います。Partykit glmtree:ツリーの中にエラーを表示するために

私は plot(output_tree, type="simple")

によってプロットにERRを表示しているために管理しているが、errは、私のツリーの概要に表示されている方法を

: 私の木だけインターセプトを持っていますが、ノーERR

output

答えて

0

glmtreeにちょうど傍受されている場合は、一定の適合ツリー(クラスconstparty)に強制することができます。デフォルトでは、各葉にモデルが構築されていることを強調するために係数が示されています。しかし、傍受があれば、一定の適合率でツリーを要約することも意味があります。

Titanicデータを準備します。

data("Titanic", package = "datasets") 
ttnc <- as.data.frame(Titanic) 
ttnc <- ttnc[rep(1:nrow(ttnc), ttnc$Freq), 1:4] 

だけインターセプトを持つ二項GLMツリーを合わせる:constparty

library("partykit") 
tr <- glmtree(Survived ~ ., data = ttnc, family = binomial, alpha = 0.01) 

強制:

tr <- as.constparty(tr) 
tr 
## Model formula: 
## Survived ~ 1 + (Class + Sex + Age) 
## 
## Fitted party: 
## [1] root 
## | [2] Sex in Male 
## | | [3] Class in 1st: No (n = 180, err = 34.4%) 
## | | [4] Class in 2nd, 3rd, Crew 
## | | | [5] Age in Child 
## | | | | [6] Class in 2nd: Yes (n = 11, err = 0.0%) 
## | | | | [7] Class in 3rd: No (n = 48, err = 27.1%) 
## | | | [8] Age in Adult 
## | | | | [9] Class in 2nd, 3rd: No (n = 630, err = 14.1%) 
## | | | | [10] Class in Crew: No (n = 862, err = 22.3%) 
## | [11] Sex in Female 
## | | [12] Class in 3rd: No (n = 196, err = 45.9%) 
## | | [13] Class in 1st, 2nd, Crew: Yes (n = 274, err = 7.3%) 
## 
## Number of inner nodes: 6 
## Number of terminal nodes: 7 
関連する問題