Fixing error in previous commit

OHDSI · Nov 13, 2023 · 74aa4d1 · 74aa4d1
1 parent 3560f86
commit 74aa4d1
Showing 1 changed file with 4 additions and 4 deletions.
diff --git a/R/RunAnalyses.R b/R/RunAnalyses.R
@@ -1702,10 +1702,10 @@ summarizeResults <- function(referenceTable, outputFolder, mainFileName, interac
     if (is.null(coefficient)) {
       p <- NA
     } else {
-      p <- EmpiricalCalibration::computeTraditionalP(logRr = estimate$logRr,
-                                                     seLogRr = estimate$seLogRr)
-      oneSidedP <- EmpiricalCalibration::computeTraditionalP(logRr = estimate$logRr,
-                                                             seLogRr = estimate$seLogRr,
+      p <- EmpiricalCalibration::computeTraditionalP(logRr = coefficient,
+                                                     seLogRr = outcomeModel$outcomeModelTreatmentEstimate$seLogRr)
+      oneSidedP <- EmpiricalCalibration::computeTraditionalP(logRr = coefficient,
+                                                             seLogRr = outcomeModel$outcomeModelTreatmentEstimate$seLogRr,
                                                              twoSided = FALSE,
                                                              upper = TRUE)
     }