Methods to calculate the posterior distribution of the absolute risk reduction

Covariate-specific absolute risk reduction (ARR) is obtained by subtracting risk evaluated at two covariate value (e.g., vary treatment but leave age constant). The model needs to be realistic, so a linear model is not appropriate here unless perhaps for the case where covariates never arise. Use a binary logistic model, and retrieve the posterior draws of all its parameters. For each posterior draw compute the two risks of interest, and subtract them. This leads to a posterior sample of the ARRs.

3 Likes

emmeans + brms + tidybayes is the perfect combo for this scenario: Logistic Regression: brms + emmeans + tidybayes · GitHub

4 Likes

Thank you for the example code. I ran it using my data and came up with essentially the same median and credible interval for the ARR as when I used brms and specified family=bernoulli(link=identity). Thank you for your reply!

Beware all ye who stray from canonical link functions (in RCTs anyways): [2107.07278] Covariate adjustment in randomised trials: canonical link functions protect against model mis-specification. I assume emmeans with brms is doing what @f2harrell suggests but that is definitely the best way (and helps you to think of all the other great posterior transforms/summaries you can do).

1 Like

I’m guess that you are referring to the average ARR. Since ARR needs to be covariate-specific I think you’ll find the identity link to be very problematic.

2 Likes

To take this question a little further, how would we change our approach when we have random effects (from e.g., logistic regression on longitudinal data)?
Should we:

  1. condition on a given value of the random effects? Like a ‘typical’ patient?
  2. average over the random effects (marginal ARR)?
  3. Something else?

I have read Prof Harrell’s critique of marginal effects in other contexts (which was very convincing) but not specifically in the mixed effects context. Very interested to hear peoples thoughts (let me know if this needs a separate post). Thanks!

1 Like

Not to answer your question, but I believe in full conditioning on baseline information and only want to condition on subject-specific effects if I’m interested in estimating subject-specific outcomes. Otherwise I marginalize on subjects by directly modeling serial correlation structure without random effects.

2 Likes

Thank you again for the code you provided. I had 2 follow up questions.
The first, do you have a way of calculating the relative risk?

My second question is how to translate for my audience the prior probability distributions into a prior of the absolute risk reduction. For example if my skeptical prior for the logistic regression model was a normal distribution with a mean of 0 and SD of 0.4, my prior belief is that the absolute risk reduction was 0 but how do I relay what the SD translates to in terms of ARR (ie the prior distribution of the ARR has a mean of 0 and 95% of the distribution is between an ARR of -x% and x%).

Thank you.

Usually one places priors on the fundamental model parameters (\beta) then for each posterior draw and for each covariate setting of interest one computes the difference in two model estimates to get absolute risk reduction (likewise for RR) and computes the distribution of this over all posterior draws. Very easy to do. Using a model based on odds ratios to get RR and ARR is easy - see Avoiding One-Number Summaries of Treatment Effects for RCTs with Binary Outcomes | Statistical Thinking

2 Likes

There must be a way of doing it with emmeans (which I will look for), but here is a “manual” solution:

b1 %>% 
  tidybayes::tidy_draws() %>% 
  dplyr::mutate(
    ttr0_risk = plogis(b_Intercept),
    ttr1_risk = plogis(b_Intercept + b_ht)
  ) %>%
  dplyr::summarise(
    relative_risk = ttr0_risk/ttr1_risk
    )

Of note, this dataset doesn’t have any other covariates. In case your dataset has them, you must first generate posterior draws conditioning on covariates of interests, then calculate the relative risk based on those draws.

What do you think @f2harrell?

2 Likes

I don’t have a great answer for that, but please check this article and its supplementary material. They provide thorough details about their prior distributions in both relative and absolute scales: Dexamethasone 12 mg versus 6 mg for patients with COVID-19 and severe hypoxaemia: a pre-planned, secondary Bayesian analysis of the COVID STEROID 2 trial - Intensive Care Medicine

1 Like

I think this is it:

b1 %>% 
  emmeans::emmeans(~ ht,
                   trans = "log",
                   type = "response") %>% 
  emmeans::contrast(method = "pairwise")

Reference: Estimating and testing GLMs with `emmeans` • I Should Be Writing

1 Like

This is the question I’ve been stuck on for so long… Lets say we adjusted for sex and age in the model. We could then calculate the conditional risk difference for a male aged 60 years like so:

b1 %>% 
    emmeans(revpairwise ~ treatment, transform = "response",
            at = list(age = 60, sex = "male"))

Alternatively, we could calculate a marginal risk difference like so (untested so excuse errors):

# treated risk
new <- df

new$treatment <- "treated"

risk_treated <- posterior_epred(b1, newdata = new)

risk_treated <- colMeans(risk_treated)

#untreated risk
new <- df

new$treatment <- "untreated"

risk_untreated <- posterior_epred(b1, newdata = new)

risk_untreated <- colMeans(post_untreated)

#risk difference
posterior_summary(risk_treated - risk_untreated)

The former is obviously a conditional risk difference for a very particular subject, while the latter is marginal in that it has averaged over the characteristics of the sample. What I really struggle to understand is when we should prefer one over the other.

Neither seem satisfactory. The problem with approach (1) is that it seems arbitrary to use these particular characteristics, while (2) seems problematic because it averages over sample characteristics which may be wildly unrepresentative of the population we wish to ultimately treat. Guidance would be greatly appreciated…

1 Like

Marginal estimates cover up what is going on. For example in the NIH Remdesivir study the overall reduction in time to recovery quoted in the NEJM paper does not apply to anyone in the study since the difference varies so greatly over initial state (e.g., being on a ventilator at baseline). One can compute posterior distributions of differences for a series of covariate values. When treatment does not interact with covariates a beautiful result happens:

  • when quantifying evidence for any efficacy (e.g., P(ARR > 0 | X)) this posterior probability will be the same for all covariate settings
  • when quantifying evidence for non-trivial efficacy (e.g., P(ARR > 0.05 | X) the posterior probabilities will be covariate-dependent. For example, for a sicker patient at baseline you may see a higher absolute risk reduction than for a less sick patient.
2 Likes

Great question. One approach is to show summaries for “reference patients”, as they did in this article

“we primarily present average estimates and average treatment effects, secondarily supplemented with estimates calculated for three different representative reference patients”

2 Likes

How should we specify the prior distribution for an absolute risk difference?

For example:

Group A prior is a Beta distribution (shape parameters: ⍺ = 4, β = 13) which attributes the most (mode) credibility to an expected event proportion of 0.2.

Group B prior is a Beta distribution (shape parameters: ⍺ = 12, β = 27) which attributes the most (mode) credibility to an expected event proportion of 0.3.

These priors directly influence the prior for the absolute risk difference between Group A and Group B. How would I derive the prior for the risk difference from the priors of these two risks.

Thank you.

You’d need to pick reference patients as @arthur_albuquerque described, as absolute risk difference is a dramatic function of baseline risk. We tend to not put priors on risk differences because we don’t know that much about them apriori. Instead it is more common to put a wide prior on a reference log odds and a narrower prior on a log odds ratio for comparing A and B.

3 Likes

I’d rather putting a more informative prior for the log odds based on high-quality observational/previous RCTs data. What do you think, Dr Harrell?

Sometimes I want to just put a skeptical prior on the log odds ratio. Sometimes high-quality data can inform, depending on what you mean by high-quality.

1 Like

Ok great. Thank you for the guidance!

I have previously defined the prior distribution for control group as a Beta distribution (shape parameters: ⍺ = 3, β = 14) with mode 0.2. The primary analysis is estimation of a proportion so I think beta priors are appropriate, but for a secondary analysis I want to compare the proportion between two groups.

I set normal prior for the coefficient pertaining to the grouping variable corresponding to the log-odds ratio of 0 and SD 1.175; this gives 95% central probability mass between odds ratio 0.1 and 10.

To set the prior for the intercept in the logistic model I took a normal approximation of a Beta (4,13) distribution. The normal has a mean log-odds -1.26 (which corresponds to an outcome probability of 0.22) and standard deviation 0.601.

Edit: and after going through this exercise, I found 6.10.3 in BBR which is outstanding.

2 Likes