Updating end-of-exposure sims to new function defs

OHDSI · Oct 31, 2024 · 188a18d · 188a18d
1 parent f303548
commit 188a18d
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/extras/EndOfExposureSimulations.R b/extras/EndOfExposureSimulations.R
@@ -178,9 +178,9 @@ simulateOne <- function(seed, scenario) {
   studyPopulation = studyPop
   idx1 <- which(estimates$covariateId == 1000)
   idx2 <- which(estimates$covariateId == 1001)
-  p <- computeExposureChangeP(sccsData, studyPop, 1, ignoreExposureStarts = TRUE)
+  p <- computeExposureChange(sccsData, studyPop, 1, ignoreExposureStarts = TRUE)$p
   p
-  p2 <- computeExposureChangeP(sccsData, studyPop, 1)
+  p2 <- computeExposureChange(sccsData, studyPop, 1)$p
   p2
   # plotExposureCentered(studyPop, sccsData, 1)
   # plotOutcomeCentered(studyPop, sccsData, 1)