From 55ea9620bdfae88166abc226c1c77bea0c966b75 Mon Sep 17 00:00:00 2001 From: Linda Nab Date: Tue, 14 Nov 2023 22:28:05 +0000 Subject: [PATCH] exclude pax treated --- analysis/data_properties/describe_outcomes.R | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/analysis/data_properties/describe_outcomes.R b/analysis/data_properties/describe_outcomes.R index a9e5106..8a29b55 100644 --- a/analysis/data_properties/describe_outcomes.R +++ b/analysis/data_properties/describe_outcomes.R @@ -61,7 +61,10 @@ data_filename <- paste0(period[!period == "ba1"], "_"[!period == "ba1"], "data_processed", ".rds") data <- - read_rds(here::here("output", "data", data_filename)) + read_rds(here::here("output", "data", data_filename)) %>% + filter(treatment_paxlovid_prim == "Untreated") # paxlovid treated only experience outcomes after +# treatment by design (_prim treatment cat); paxlovid treated will be censored after pax init, +# so we're not interested in number of outcomes in paxlovid treated group. # subgroup if subgroup analysis if (subgrp == "haem"){ data <-