marsnone

C5.0.graphviz <- function( C5.0.model,   filename, fontname ='Arial',
                           col.draw ='black',col.font ='blue',col.conclusion ='lightpink',
                           col.question = 'grey78', shape.conclusion ='box3d',shape.question ='diamond', 
                           bool.substitute = 'None', prefix=FALSE, vertical=TRUE ) {
  
  library(cwhmisc)  
  library(stringr) 
  treeout <- C5.0.model$output
  treeout<- substr(treeout,   cpos(treeout, 'Decision tree:', start=1)+14,nchar(treeout))
  treeout<- substr(treeout,   1,cpos(treeout, 'Evaluation on training data', start=1)-2)