fixing incidence bug function

This commit is contained in:
prise6 2015-07-12 01:20:41 +02:00
parent e638215863
commit f9dd526a65
1 changed files with 1 additions and 1 deletions

View File

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