Discussion :

[Jerimel]

Bonjour à tous,
Je suis débutant sous R et je ne trouve pas la solution à mon problème.
J'ai utilisé le package party pour fabriquer un arbre de décision comme ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
library(party)
param.4<-ctree_control(minsplit=20,minbucket=10)
arbre.4<-ctree(Grade ~ Balance_primaire_en_pourc._du_PIB_Moy + Dette_publique_en_pourc._du_PIB + Part_dette_publique_en_FC + Acces_M.fi + MPI + BSI_norm + PIB_hab__pourc._en_PPA_deflat_0 + Croissance_du_PIB_hab + Inflation_Born_1_an + Vuln__ext_norme_Born + Solde_courant_en_part_du_PIB + Dependance_l_exportation_de_mat + Governement_Effectiveness + Regulatory_Quality + Willingness_to_pay  + Gini + IDH + Voice_and_Accountability, res, controls=param.4)
plot(arbre.4)

Ca marche, ça me sort un beau graphique, le problème c'est que maintenant il faudrait que j'explore les résultats pour pour savoir ce que contient chaque nœud terminal, quelles observations.
Il faudrait aussi que je fasse une moyenne pour chaque variable, on en revient au meme points, comment faire une liste de ce que contient chaque noeud terminal ?
Il faut que je change de package parce que j'ai cherché partout pour party et je n'ai rien trouvé.
Merci

[dev_ggy]

Bonjour,

Dans l'aide et dans le chapitre BinaryTree-class il y a une liste des fonctions dont tu en as certaines qui te donnent les éléments pour extraire des résultats de ton arbre de décision. Par exemple si tu as besoin des résultats sur les feuilles tu as la fonction where.

Cordialement.

[Jerimel]

Merci de ta réponse, le problème c'est que toutes ces fonctions de l'aide me donnent quelques éléments mais pas ce que je recherche.
Je voudrais savoir pour un noeud donné quelles sont les observations qu'il y a dedans ?
Mais peut-être que ça n'existe pas, auquel cas je repasse sous sas en faisant une table à la main.

[dev_ggy]

Après quelques recherches,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
airq <- subset(airquality, !is.na(Ozone))
airct <- ctree(Ozone ~ ., data = airq, 
               controls = ctree_control(maxsurrogate = 1))
airct@tree$right$weights
airct@tree$left$weights

Les deux dernières lignes permettent de se déplacer dans les nodes et de connaitre la présence ou non des paramètres.

Cordialement

[Jerimel]

Merci, après quelques manipulations pour me faire la main concernant la navigation dans les noeuds, j'ai pu trouver la réponse à mes questions