Distribution of fitness effects
A bound on the expected spectrum
TheoremUniform bound on the expected site-frequency spectrum#✓fully proved
The expected number of sites with i derived copies in a sample of n, 1 ≤ i < n, is
bounded uniformly in the selection coefficient: |E ξ_i(σ)| ≤ |θ| C(n, i).
theorem abs_expectedSFS_le (θ σ : ℝ) {n i : ℕ} (hi : 0 < i) (hin : i < n) :
|expectedSFS θ σ n i| ≤ |θ| * n.choose i
noncomputable def expectedSFS (θ σ : ℝ) (n i : ℕ) : ℝ :=
∫ x in (0 : ℝ)..1, (n.choose i : ℝ) * x ^ i * (1 - x) ^ (n - i) * prfDensity θ σ x
MathlibExt/Biology/PopulationGenetics/Diffusion/PoissonRandomField.lean:243
Uses 7 · Used by 1
Spectra under a distribution of fitness effects
DefinitionSite-frequency spectrum under a distribution of fitness effects#✓fully proved
The expected unfolded site-frequency spectrum under the distribution of fitness effects
μ (a law on the scaled selection coefficient σ = 2Ns): ∫ E ξ_i(σ) dμ(σ), where each new
mutation draws its own σ from μ.
noncomputable def dfeSFS (μ : Measure ℝ) (θ : ℝ) (n i : ℕ) : ℝ :=
∫ σ, expectedSFS θ σ n i ∂μ
noncomputable def expectedSFS (θ σ : ℝ) (n i : ℕ) : ℝ :=
∫ x in (0 : ℝ)..1, (n.choose i : ℝ) * x ^ i * (1 - x) ^ (n - i) * prfDensity θ σ x
MathlibExt/Biology/PopulationGenetics/Diffusion/PoissonRandomField.lean:243
Uses 1 · Used by 5
DefinitionFrequency density averaged over a distribution of fitness effects#✓fully proved
The Poisson-random-field frequency density averaged over the distribution of fitness
effects μ: ∫ φ_σ(x) dμ(σ).
noncomputable def dfeDensity (μ : Measure ℝ) (θ x : ℝ) : ℝ :=
∫ σ, prfDensity θ σ x ∂μ
noncomputable def prfDensity (θ σ x : ℝ) : ℝ :=
θ * kimuraFixation σ (1 - x) / (x * (1 - x))
MathlibExt/Biology/PopulationGenetics/Diffusion/PoissonRandomField.lean:76
Uses 1 · Used by 1
TheoremIntegrability of the expected spectrum in the selection coefficient#✓fully proved
For 1 ≤ i < n, the expected spectrum E ξ_i(σ) is integrable in σ against every
finite measure.
theorem integrable_expectedSFS (μ : Measure ℝ) [IsFiniteMeasure μ] (θ : ℝ) {n i : ℕ}
(hi : 0 < i) (hin : i < n) : Integrable (fun σ => expectedSFS θ σ n i) μ
noncomputable def expectedSFS (θ σ : ℝ) (n i : ℕ) : ℝ :=
∫ x in (0 : ℝ)..1, (n.choose i : ℝ) * x ^ i * (1 - x) ^ (n - i) * prfDensity θ σ x
MathlibExt/Biology/PopulationGenetics/Diffusion/PoissonRandomField.lean:243
Uses 4 · Used by 1
TheoremMixture identity#✓fully proved
For a finite measure μ of selection coefficients and a segregating
class 1 ≤ i < n, the DFE-averaged spectrum is the binomial sampling integral of the
DFE-averaged frequency density:
∫ E ξ_i(σ) dμ(σ) = ∫₀¹ C(n, i) x ^ i (1 - x) ^ (n - i) (∫ φ_σ(x) dμ(σ)) dx.
theorem dfeSFS_eq_integral_dfeDensity (μ : Measure ℝ) [IsFiniteMeasure μ] (θ : ℝ) {n i : ℕ}
(hi : 0 < i) (hin : i < n) :
dfeSFS μ θ n i =
∫ x in (0 : ℝ)..1, (n.choose i : ℝ) * x ^ i * (1 - x) ^ (n - i) * dfeDensity μ θ x
noncomputable def dfeSFS (μ : Measure ℝ) (θ : ℝ) (n i : ℕ) : ℝ :=
∫ σ, expectedSFS θ σ n i ∂μ
MathlibExt/Biology/PopulationGenetics/DistributionOfFitnessEffects.lean:136
noncomputable def dfeDensity (μ : Measure ℝ) (θ x : ℝ) : ℝ :=
∫ σ, prfDensity θ σ x ∂μ
MathlibExt/Biology/PopulationGenetics/DistributionOfFitnessEffects.lean:141
Uses 9
TheoremSpectrum under a point-mass DFE is the single-selection spectrum#✓fully proved
A DFE concentrated on one selection coefficient gives the single-σ spectrum.
theorem dfeSFS_dirac (σ θ : ℝ) (n i : ℕ) :
dfeSFS (Measure.dirac σ) θ n i = expectedSFS θ σ n i
noncomputable def dfeSFS (μ : Measure ℝ) (θ : ℝ) (n i : ℕ) : ℝ :=
∫ σ, expectedSFS θ σ n i ∂μ
MathlibExt/Biology/PopulationGenetics/DistributionOfFitnessEffects.lean:136
noncomputable def expectedSFS (θ σ : ℝ) (n i : ℕ) : ℝ :=
∫ x in (0 : ℝ)..1, (n.choose i : ℝ) * x ^ i * (1 - x) ^ (n - i) * prfDensity θ σ x
MathlibExt/Biology/PopulationGenetics/Diffusion/PoissonRandomField.lean:243
TheoremDFE spectrum is additive in the measure#✓fully proved
The spectrum is additive in the (finite) DFE.
theorem dfeSFS_add_measure (μ ν : Measure ℝ) [IsFiniteMeasure μ] [IsFiniteMeasure ν] (θ : ℝ)
{n i : ℕ} (hi : 0 < i) (hin : i < n) :
dfeSFS (μ + ν) θ n i = dfeSFS μ θ n i + dfeSFS ν θ n i
noncomputable def dfeSFS (μ : Measure ℝ) (θ : ℝ) (n i : ℕ) : ℝ :=
∫ σ, expectedSFS θ σ n i ∂μ
MathlibExt/Biology/PopulationGenetics/DistributionOfFitnessEffects.lean:136
TheoremDFE spectrum is homogeneous in the measure#✓fully proved
The spectrum is homogeneous in the DFE.
theorem dfeSFS_smul_measure (c : ℝ≥0∞) (μ : Measure ℝ) (θ : ℝ) (n i : ℕ) :
dfeSFS (c • μ) θ n i = c.toReal * dfeSFS μ θ n i
noncomputable def dfeSFS (μ : Measure ℝ) (θ : ℝ) (n i : ℕ) : ℝ :=
∫ σ, expectedSFS θ σ n i ∂μ
MathlibExt/Biology/PopulationGenetics/DistributionOfFitnessEffects.lean:136
Uses 2
The gamma DFE
DefinitionGamma distribution of fitness effects#✓fully proved
The gamma distribution of fitness effects (Boyko et al. 2008): the scaled selection
coefficient is σ = -T with T ~ Gamma(a, r), shape a > 0 and rate r > 0 (scale 1 / r),
so new mutations are deleterious with mean strength a / r.
noncomputable def gammaDFE (a r : ℝ) : Measure ℝ :=
(gammaMeasure a r).map Neg.neg
Used by 8
TheoremGamma DFE is a probability measure#✓fully proved
The gamma DFE is a probability law.
theorem isProbabilityMeasure_gammaDFE {a r : ℝ} (ha : 0 < a) (hr : 0 < r) :
IsProbabilityMeasure (gammaDFE a r)
noncomputable def gammaDFE (a r : ℝ) : Measure ℝ :=
(gammaMeasure a r).map Neg.neg
MathlibExt/Biology/PopulationGenetics/DistributionOfFitnessEffects.lean:218
Uses 1
TheoremNo mutation is beneficial under the gamma DFE#✓fully proved
Under the gamma DFE no mutation is beneficial.
theorem gammaDFE_Ioi_zero (a r : ℝ) : gammaDFE a r (Ioi 0) = 0
noncomputable def gammaDFE (a r : ℝ) : Measure ℝ :=
(gammaMeasure a r).map Neg.neg
MathlibExt/Biology/PopulationGenetics/DistributionOfFitnessEffects.lean:218
Uses 1
TheoremMean selection coefficient under the gamma DFE#✓fully proved
The mean scaled selection coefficient under the gamma DFE is -a / r.
theorem integral_id_gammaDFE {a r : ℝ} (ha : 0 < a) (hr : 0 < r) :
∫ σ, σ ∂gammaDFE a r = -(a / r)
noncomputable def gammaDFE (a r : ℝ) : Measure ℝ :=
(gammaMeasure a r).map Neg.neg
MathlibExt/Biology/PopulationGenetics/DistributionOfFitnessEffects.lean:218
Uses 2
TheoremVariance of the selection coefficient under the gamma DFE#✓fully proved
The variance of the scaled selection coefficient under the gamma DFE is a / r ^ 2.
theorem variance_id_gammaDFE {a r : ℝ} (ha : 0 < a) (hr : 0 < r) :
variance id (gammaDFE a r) = a / r ^ 2
noncomputable def gammaDFE (a r : ℝ) : Measure ℝ :=
(gammaMeasure a r).map Neg.neg
MathlibExt/Biology/PopulationGenetics/DistributionOfFitnessEffects.lean:218
Uses 2
TheoremRescaling a gamma DFE divides its rate#✓fully proved
Rescaling a gamma DFE by c > 0 (for example from s to σ = 2Ns, c = 2N) keeps the
shape and divides the rate by c.
theorem gammaDFE_map_const_mul {a r c : ℝ} (ha : 0 < a) (hr : 0 < r) (hc : 0 < c) :
(gammaDFE a r).map (fun σ => c * σ) = gammaDFE a (r / c)
noncomputable def gammaDFE (a r : ℝ) : Measure ℝ :=
(gammaMeasure a r).map Neg.neg
MathlibExt/Biology/PopulationGenetics/DistributionOfFitnessEffects.lean:218
Uses 2
TheoremFraction of strongly deleterious mutations#✓fully proved
Under the gamma DFE the fraction of new
mutations with σ < -c, c ≥ 0, is the gamma tail Γ(a, r c) / Γ(a).
theorem gammaDFE_real_Iio {a r c : ℝ} (ha : 0 < a) (hr : 0 < r) (hc : 0 ≤ c) :
(gammaDFE a r).real (Iio (-c)) = upperIncompleteGamma a (r * c) / Gamma a
noncomputable def gammaDFE (a r : ℝ) : Measure ℝ :=
(gammaMeasure a r).map Neg.neg
MathlibExt/Biology/PopulationGenetics/DistributionOfFitnessEffects.lean:218
noncomputable def upperIncompleteGamma (a x : ℝ) : ℝ :=
∫ t in Ioi x, t ^ (a - 1) * exp (-t)
MathlibExt/Probability/Distributions/GammaMoments.lean:56
Uses 3
TheoremFraction of mutations in a strength interval under the gamma DFE#✓fully proved
The fraction of new mutations whose strength -σ lies in (c₁, c₂], 0 ≤ c₁ ≤ c₂, is
(Γ(a, r c₁) - Γ(a, r c₂)) / Γ(a).
theorem gammaDFE_real_Ico {a r c₁ c₂ : ℝ} (ha : 0 < a) (hr : 0 < r) (hc₁ : 0 ≤ c₁)
(hc : c₁ ≤ c₂) :
(gammaDFE a r).real (Ico (-c₂) (-c₁)) =
(upperIncompleteGamma a (r * c₁) - upperIncompleteGamma a (r * c₂)) / Gamma a
noncomputable def gammaDFE (a r : ℝ) : Measure ℝ :=
(gammaMeasure a r).map Neg.neg
MathlibExt/Biology/PopulationGenetics/DistributionOfFitnessEffects.lean:218
noncomputable def upperIncompleteGamma (a x : ℝ) : ℝ :=
∫ t in Ioi x, t ^ (a - 1) * exp (-t)
MathlibExt/Probability/Distributions/GammaMoments.lean:56
Uses 3
TheoremSite-frequency spectrum under the gamma DFE#✓fully proved
The spectrum under the gamma DFE as an integral against the gamma law of the strength.
theorem dfeSFS_gammaDFE (a r θ : ℝ) (n i : ℕ) :
dfeSFS (gammaDFE a r) θ n i = ∫ t, expectedSFS θ (-t) n i ∂gammaMeasure a r
noncomputable def dfeSFS (μ : Measure ℝ) (θ : ℝ) (n i : ℕ) : ℝ :=
∫ σ, expectedSFS θ σ n i ∂μ
MathlibExt/Biology/PopulationGenetics/DistributionOfFitnessEffects.lean:136
noncomputable def gammaDFE (a r : ℝ) : Measure ℝ :=
(gammaMeasure a r).map Neg.neg
MathlibExt/Biology/PopulationGenetics/DistributionOfFitnessEffects.lean:218
noncomputable def expectedSFS (θ σ : ℝ) (n i : ℕ) : ℝ :=
∫ x in (0 : ℝ)..1, (n.choose i : ℝ) * x ^ i * (1 - x) ^ (n - i) * prfDensity θ σ x
MathlibExt/Biology/PopulationGenetics/Diffusion/PoissonRandomField.lean:243
The Poisson likelihood of the spectrum
DefinitionPoisson log-likelihood of counts#✓fully proved
The Poisson log-likelihood ∑ (k_i log E_i - E_i - log k_i!) of counts k_i with means
E_i. Meaningful for E_i > 0; at E_i = 0 Lean's log 0 = 0 gives a junk value.
noncomputable def poissonLogLik (E : ι → ℝ) (k : ι → ℕ) : ℝ :=
∑ i, ((k i : ℝ) * log (E i) - E i - log (Nat.factorial (k i)))
TheoremProbability of a count vector under independent Poisson laws#✓fully proved
The joint law of independent Poisson counts with means E_i gives the count vector k
the probability ∏ e^{-E_i} E_i ^ {k_i} / (k_i!).
theorem pi_poissonMeasure_real_singleton (E : ι → ℝ≥0) (k : ι → ℕ) :
(Measure.pi fun i => poissonMeasure (E i)).real {k} =
∏ i, exp (-(E i : ℝ)) * (E i : ℝ) ^ k i / Nat.factorial (k i)
Used by 1
TheoremThe Poisson-random-field log-likelihood#✓fully proved
For independent Poisson counts with positive
means E_i, the log-probability of the observed counts k is poissonLogLik E k.
theorem log_pi_poissonMeasure_real_singleton (E : ι → ℝ≥0) (hE : ∀ i, 0 < E i) (k : ι → ℕ) :
log ((Measure.pi fun i => poissonMeasure (E i)).real {k}) =
poissonLogLik (fun i => (E i : ℝ)) k
noncomputable def poissonLogLik (E : ι → ℝ) (k : ι → ℕ) : ℝ :=
∑ i, ((k i : ℝ) * log (E i) - E i - log (Nat.factorial (k i)))
MathlibExt/Biology/PopulationGenetics/DistributionOfFitnessEffects.lean:294
Uses 2
TheoremDerivative of the Poisson log-likelihood#✓fully proved
The derivative of the log-likelihood in the parameter ψ, when the means E_i(ψ) are
positive and differentiable at ψ: ∑ (k_i / E_i(ψ) - 1) · DE_i(ψ).
theorem hasFDerivAt_poissonLogLik {E : ι → V → ℝ} {ψ : V}
(hE : ∀ i, DifferentiableAt ℝ (E i) ψ) (hpos : ∀ i, 0 < E i ψ) (k : ι → ℕ) :
HasFDerivAt (fun φ => poissonLogLik (fun i => E i φ) k)
(∑ i, ((k i : ℝ) / E i ψ - 1) • fderiv ℝ (E i) ψ) ψ
noncomputable def poissonLogLik (E : ι → ℝ) (k : ι → ℕ) : ℝ :=
∑ i, ((k i : ℝ) * log (E i) - E i - log (Nat.factorial (k i)))
MathlibExt/Biology/PopulationGenetics/DistributionOfFitnessEffects.lean:294
Uses 1 · Used by 1
TheoremScore equations#✓fully proved
If ψ maximizes the Poisson log-likelihood over a parameter set S
that is a neighborhood of ψ, and the means are positive and differentiable at ψ, then
∑ (k_i / E_i(ψ) - 1) · DE_i(ψ) = 0.
theorem score_eq_zero_of_isMaxOn {E : ι → V → ℝ} {ψ : V} {S : Set V} (k : ι → ℕ)
(hS : S ∈ 𝓝 ψ) (hmax : IsMaxOn (fun φ => poissonLogLik (fun i => E i φ) k) S ψ)
(hE : ∀ i, DifferentiableAt ℝ (E i) ψ) (hpos : ∀ i, 0 < E i ψ) :
∑ i, ((k i : ℝ) / E i ψ - 1) • fderiv ℝ (E i) ψ = 0
noncomputable def poissonLogLik (E : ι → ℝ) (k : ι → ℕ) : ℝ :=
∑ i, ((k i : ℝ) * log (E i) - E i - log (Nat.factorial (k i)))
MathlibExt/Biology/PopulationGenetics/DistributionOfFitnessEffects.lean:294
Uses 2
TheoremProfile maximum in θ#✓fully proved
With means E_i = θ f_i linear in the mutation parameter,
positive f_i and at least one count, every θ > 0 has likelihood at most that of
θ̂ = ∑ k_i / ∑ f_i.
theorem poissonLogLik_le_profile {f : ι → ℝ} (hf : ∀ i, 0 < f i) (k : ι → ℕ)
(hk : 0 < ∑ i, k i) {θ : ℝ} (hθ : 0 < θ) :
poissonLogLik (fun i => θ * f i) k ≤
poissonLogLik (fun i => (∑ j, (k j : ℝ)) / (∑ j, f j) * f i) k
noncomputable def poissonLogLik (E : ι → ℝ) (k : ι → ℕ) : ℝ :=
∑ i, ((k i : ℝ) * log (E i) - E i - log (Nat.factorial (k i)))
MathlibExt/Biology/PopulationGenetics/DistributionOfFitnessEffects.lean:294
Uses 1
Loading dependency explorer…
The dependency explorer needs JavaScript and its graph data.