Survivorship measures both relative and absolute fitness
I recently reviewed a very good paper that (in the original version) claimed there was no way to turn surivorship (i.e. the proportion of a genotype or whatever that survives in a selection experiment) into relative fitness. This struck me as odd, but the authors are very knowledgeable in this area, so I did some digging. I came to realize that the probability of survival is both a measure of absolute and relative fitness. I’m sure this has been proven before, but I wasn’t aware of it, so I wrote up the proof here with a mini-example, just in case it’s useful to others. If you know of someone who has shown this previously, I’d appreciate the reference. Thanks!
The probability of survival is a measure of relative fitness (and absolute fitness!).
In their original submission (since revised), the authors stated that they are only measuring absolute fitness for viability because “[i]t was not possible to evaluate relative fitness in a logistic regression framework.” Here I want to show that the probability of survivorship, which is the parameter fit with logistic regression in this case, is a measure of both absolute and relative fitness.
The key property of absolute fitness (
The key property of relative fitness (
The probability of survivorship fulfills both of these relationships, as I’ll show with a toy example (haploid, two-allele, one-locus system), but it should generalize to any number of genotypes or change in probability density if you’re talking about a quantitative trait.
Let’s imagine two alleles
The average fitness is
If there are
Below is some R code demonstrating these calculations.
# Libraries
library(magrittr)
library(tibble)
# Parameters
N <- 100
N_a <- 40
N_A <- N - N_a
p_a <- N_a / N
p_A <- 1 - p_a
W_a <- 0.8
W_A <- 0.6
W_bar <- p_a * W_a + p_A * W_A
w_a <- W_a / W_bar
w_A <- W_A / W_bar
# Calculations
tibble::tibble(
Genotype = c("$a$", "$A$", "Total"),
`$N(t)$` = c(N_a, N_A, N),
`$p(t)$` = c(p_a, p_A, 1),
`$W$` = c(W_a, W_A, p_a * W_a + p_A * W_A),
`$\\bar{W}$` = p_a * W_a + p_A * W_A,
`$w$` = `$W$` / `$\\bar{W}$`,
`$N(t + 1)$` = `$N(t)$` * `$W$`,
`$p(t + 1)$` = `$N(t + 1)$` / `$N(t + 1)$`[3]
) %>%
# Print table
knitr::kable(digits = 2)
Genotype | |||||||
---|---|---|---|---|---|---|---|
40 | 0.4 | 0.80 | 0.68 | 1.18 | 32 | 0.47 | |
60 | 0.6 | 0.60 | 0.68 | 0.88 | 36 | 0.53 | |
Total | 100 | 1.0 | 0.68 | 0.68 | 1.00 | 68 | 1.00 |