diff --git a/R/RunAnalyses.R b/R/RunAnalyses.R
index 3242d451..3b9f90ff 100644
--- a/R/RunAnalyses.R
+++ b/R/RunAnalyses.R
@@ -1701,6 +1701,7 @@ summarizeResults <- function(referenceTable, outputFolder, mainFileName, interac
     ci <- confint(outcomeModel)
     if (is.null(coefficient)) {
       p <- NA
+      oneSidedP <- NA
     } else {
       p <- EmpiricalCalibration::computeTraditionalP(logRr = coefficient,
                                                      seLogRr = outcomeModel$outcomeModelTreatmentEstimate$seLogRr)