From 1096887e15c241d38dc36cc6ed2809a857c76a96 Mon Sep 17 00:00:00 2001
From: prise6 <vieille.francois@gmail.com>
Date: Tue, 9 Jun 2015 17:47:17 +0200
Subject: [PATCH] Minor changes

---
 R/tree.R | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/R/tree.R b/R/tree.R
index 2bac08f..971d368 100644
--- a/R/tree.R
+++ b/R/tree.R
@@ -53,6 +53,7 @@ VT.tree <- setRefClass(
     },
     
     computeNameOfTree = function(type){
+      return(type)
       if(.self$threshold < 0 ){
         threshold.chr <- paste0("m", -.self$threshold)
       }else{
@@ -120,7 +121,7 @@ VT.tree <- setRefClass(
       if (ncol(frm)==0) stop("VT.tree : no rules");
       
       pth <- rpart::path.rpart(.self$tree, nodes = row.names(frm), print.it = F)
-      # Delete 'root' node des règles
+      # Delete 'root' node from rules
       pth <- lapply(pth, FUN = function(d) return(d[-1]))
       
       depth <- 0