prise6/aVirtualTwins
1
0
Fork 0
mirror of https://github.com/prise6/aVirtualTwins.git synced 2024-05-01 19:52:43 +02:00
Code Issues Releases Wiki Activity

Minor changes

Browse source
This commit is contained in:
prise6 2015-06-09 17:47:17 +02:00
parent 004728b7fc
commit 1096887e15
1 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
R/tree.R
View file

@ -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