mirror of
https://github.com/prise6/aVirtualTwins.git
synced 2024-05-14 21:36:32 +02:00
Minor changes
This commit is contained in:
parent
004728b7fc
commit
1096887e15
3
R/tree.R
3
R/tree.R
|
@ -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
|
||||||
|
|
Loading…
Reference in a new issue