1
0
Fork 0
mirror of https://github.com/prise6/aVirtualTwins.git synced 2024-05-14 21:36:32 +02:00

Minor changes

This commit is contained in:
prise6 2015-06-09 17:47:17 +02:00
parent 004728b7fc
commit 1096887e15

View file

@ -53,6 +53,7 @@ VT.tree <- setRefClass(
}, },
computeNameOfTree = function(type){ computeNameOfTree = function(type){
return(type)
if(.self$threshold < 0 ){ if(.self$threshold < 0 ){
threshold.chr <- paste0("m", -.self$threshold) threshold.chr <- paste0("m", -.self$threshold)
}else{ }else{
@ -120,7 +121,7 @@ VT.tree <- setRefClass(
if (ncol(frm)==0) stop("VT.tree : no rules"); if (ncol(frm)==0) stop("VT.tree : no rules");
pth <- rpart::path.rpart(.self$tree, nodes = row.names(frm), print.it = F) 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])) pth <- lapply(pth, FUN = function(d) return(d[-1]))
depth <- 0 depth <- 0