fixing incidence bug function
This commit is contained in:
parent
e638215863
commit
f9dd526a65
2
R/tree.R
2
R/tree.R
|
@ -305,7 +305,7 @@ VT.tree <- setRefClass(
|
|||
"Return Ahat incidence"
|
||||
if(sum(.self$Ahat)!=0){
|
||||
|
||||
table.inc <- VT.incidences(vt.object = .self$vt.difft$vt.object, select = .self$Ahat)
|
||||
table.inc <- VT.incidences(.self$vt.difft, select = .self$Ahat)
|
||||
|
||||
table.A <- table.inc$table.selected
|
||||
table.A.cmpl <- table.inc$table.not.selected
|
||||
|
|
Loading…
Reference in New Issue