Setting mean logRr to 0 when simulating monotonic calendar time trend

OHDSI · Dec 3, 2024 · b188251 · b188251
1 parent 445388c
commit b188251
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/R/Simulation.R b/R/Simulation.R
@@ -406,6 +406,7 @@ simulateSccsData <- function(nCases, settings) {
       if (!increasing) {
         calendarTimeRisk <- -calendarTimeRisk
       }
+      calendarTimeRisk <- calendarTimeRisk - mean(calendarTimeRisk)
     }
     calendarTimeFun <- splinefun(as.numeric(calendarTime), calendarTimeRisk)
   } else {