data("simulationProfile")
plpData <- simulatePlpData(simulationProfile, n = 100, seed = 42)
benchmarkData <- simulatePlpBenchmarkData(
plpData = plpData,
outcomeModel = c("(Intercept)" = -2, "1002" = 0.04),
n = 100,
riskWindowStart = 1,
riskWindowEnd = 365,
seed = 42
)
attr(benchmarkData, "simulationTruth")
Run the code above in your browser using DataLab