From a57aa21f500d5228df303cc63eb11d80526ea617 Mon Sep 17 00:00:00 2001 From: "Jeremy Raw (FHWA)" Date: Wed, 9 Jun 2021 11:58:14 -0400 Subject: [PATCH] Fixed bug in index function. --- sources/tools/models.R | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/sources/tools/models.R b/sources/tools/models.R index f967f30c0..775d5ed40 100644 --- 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)