From 3bde9709d84567e90d27099c709e38efe533aa18 Mon Sep 17 00:00:00 2001 From: schuemie Date: Wed, 9 Oct 2024 06:24:10 +0200 Subject: [PATCH] Forgot to save --- extras/EndOfExposureSimulations.R | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/extras/EndOfExposureSimulations.R b/extras/EndOfExposureSimulations.R index 29ecc4c..5a1a0b8 100644 --- a/extras/EndOfExposureSimulations.R +++ b/extras/EndOfExposureSimulations.R @@ -55,7 +55,7 @@ writeLines(sprintf("Number of simulation scenarios: %d", length(scenarios))) # Run simulations ---------------------------------------------------------------------------------- folder <- "e:/SccsEdeSimulations100" -scenario = scenarios[[1]] +scenario = scenarios[[6]] scenario$censorType simulateOne <- function(seed, scenario) { @@ -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) + p <- computeExposureChangeP(sccsData, studyPop, 1, ignoreExposureStarts = TRUE) p - p2 <- computeExposureChangeP(sccsData, studyPop, 1, ignoreExposureStarts = FALSE) + p2 <- computeExposureChangeP(sccsData, studyPop, 1) p2 # plotExposureCentered(studyPop, sccsData, 1) # plotOutcomeCentered(studyPop, sccsData, 1)