Update Main.R

OHDSI · Jul 30, 2024 · 6dea469 · 6dea469
1 parent ea0013a
commit 6dea469
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/Main.R b/Main.R
@@ -94,8 +94,8 @@ getModelInfo <- function(strategusOutputPath) {
       enrichedData <- merge(modelData, databaseDetails, by = "database_id")
       finalModelData <- merge(enrichedData, databaseMetaData, by.y = "database_id", by.x = "database_meta_data_id")
       finalModelData <- merge(finalModelData, modelDesign, by = "model_design_id")
-      finalModelData <- merge(finalModelData, populationSettings, by = "population_settings_id")
-      finalModelData <- merge(finalModelData, plpDataSettings, by = "plp_data_settings_id")
+      finalModelData <- merge(finalModelData, populationSettings, by = "population_setting_id")
+      finalModelData <- merge(finalModelData, plpDataSettings, by = "plp_data_setting_id")
       finalModelData <- merge(finalModelData, cohorts, by.x = "outcome_id", by.y = "cohort_id")
       finalModelData <- within(finalModelData, {
         outcome_id <- cohort_definition_id