Fixed bug in index function.

VisionEval · Jun 9, 2021 · a57aa21 · a57aa21
1 parent 56e68cc
commit a57aa21
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/sources/tools/models.R b/sources/tools/models.R
@@ -437,7 +437,7 @@ ve.model.index <- function() {
     # (each row is a "case" in stat lingo, and the "complete" ones have a non-NA value for each
     # column)
     # message("Adding inputs to Inputs data.frame")
-    ccases <- complete.cases(GroupTableName)
+    ccases <- complete.cases(GroupTableName[,c("Group","Table","Name")])
     GroupTableName <- GroupTableName[ccases,]
     # message("Length of complete.cases:",nrow(GroupTableName))
     Index <- rbind(Index,GroupTableName)