如何从 rpart printcp 函数获取根节点错误值?

How to get root node error value from rpart printcp function?

rpart 包中,可以从 printcp 函数获得以下输出。但是如何提取根节点错误值呢?

Classification tree:
rpart(formula = survived ~ ., data = ptitanic, control = rpart.control(cp = 1e-04))

#Variables actually used in tree construction:
#[1] age    parch  pclass sex    sibsp 

#Root node error: 500/1309 = 0.38

#n= 1309 

 #     CP nsplit rel error xerror  xstd
 #1 0.4240      0      1.00   1.00 0.035
 #2 0.0210      1      0.58   0.58 0.030
 #3 0.0150      3      0.53   0.57 0.030
 #4 0.0113      5      0.50   0.57 0.030
 #5 0.0026      9      0.46   0.53 0.029
 #6 0.0020     16      0.44   0.53 0.029
 #7 0.0001     18      0.44   0.53 0.029

您可以通过以下方式从 fitframe 组件中获取根错误值:

 fit$frame[1, 'dev']/fit$frame[1, 'n']

fit$frame 第一行的 yval2.V5 条目。