Sortie J48 arbre dans le fichier texte dans R

Question

J'ai le decision tree pour churn ensemble de données en utilisant la fonction J48() du paquet RWeka. L'arbre est vraiment grand, donc je suis incapable de voir l'arbre entier. Je veux le sortir dans un fichier texte mais le format est changé. Comment puis-je l'enregistrer en préservant le format de l'arborescence.

save(m2,file="thisexample.txt", ascii=TRUE)

m2 est le dataframe dans lequel je stocke la sortie d'arbre J48.

Answer 1

I. Exemple avec l'ensemble de données iris utilisant la fonction J48() de RWeka.

 library(RWeka) 
     result = J48(Species~.,data=iris) 
     result 
     # J48 pruned tree 
     # ------------------ 

     # Petal.Width <= 0.6: setosa (50.0) 
     # Petal.Width > 0.6 
     # | Petal.Width <= 1.7 
     # | | Petal.Length <= 4.9: versicolor (48.0/1.0) 
     # | | Petal.Length > 4.9 
     # | | | Petal.Width <= 1.5: virginica (3.0) 
     # | | | Petal.Width > 1.5: versicolor (3.0/1.0) 
     # | Petal.Width > 1.7: virginica (46.0/1.0) 

     # Number of Leaves :  5 

     # Size of the tree :  9 

II. Utilisez la fonction sink() pour l'écrire dans un fichier texte

 sink("result.txt") 
     print (result) 
     sink() 

III. Ouvrez result.txt enregistré dans votre répertoire de travail actuel.