Я бы хотел получить такую картинку,
Вот что у меня сейчас:
Как я могу изменить код для получения изображения? Я имею в виду, как удалить распределение $ err и $ в терминальных узлах?
Я прочитал документацию для партийного сюжета, но напрасно.
Заранее спасибо.
library(openxlsx)
library('partykit')
data<- read.xlsx("2005.XLSX", sheet = 1)
tree<-ctree(inc_total~.,data=data,control = ctree_control(maxdepth = 5))
plot(tree,type='simple',inner_panel=node_inner(tree,id=FALSE),
terminal_panel = node_terminal(tree,digits=1,id=FALSE,fill=c('white','white'),width = 14,gp=gpar(fontsize=5)))
mean((data$inc_total-predict(tree))^2)