Résumé: Les GLM sont ajustés via le score de Fisher qui, comme le note Dimitriy V. Masterov, est Newton-Raphson avec la Hesse attendue à la place (c'est-à-dire que nous utilisons une estimation des informations de Fisher au lieu des informations observées). Si nous utilisons la fonction de lien canonique, il s'avère que le Hessian observé est égal au Hessian attendu, donc les scores NR et Fisher sont les mêmes dans ce cas. Quoi qu'il en soit, nous verrons que le score de Fisher correspond en fait à un modèle linéaire des moindres carrés pondérés, et les estimations de coefficient à partir de cette convergence * sur un maximum de la probabilité de régression logistique. En plus de réduire l'ajustement d'une régression logistique à un problème déjà résolu, nous avons également l'avantage de pouvoir utiliser des diagnostics de régression linéaire sur l'ajustement WLS final pour en savoir plus sur notre régression logistique.
Je vais continuer de mettre l'accent sur la régression logistique, mais pour une perspective plus générale sur la probabilité maximale dans les GLM, je recommande la section 15.3 de ce chapitre qui passe par là et dérive l'IRL dans un cadre plus général (je pense que c'est de John Fox's Applied Analyse de régression et modèles linéaires généralisés ).
∗ voir les commentaires à la fin
La fonction de probabilité et de score
Nous ajusterons notre GLM en itérant quelque chose de la forme
b(m+1)=b(m)−J−1(m)∇ℓ(b(m))
où
ℓ est la probabilité logarithmique et
Jm sera soit la Hesse observée ou attendue de la vraisemblance logarithmique.
Notre fonction de lien est une fonction qui mappe la moyenne conditionnelle μ i = E ( y i | x i ) à notre prédicteur linéaire, donc notre modèle pour la moyenne est g ( μ i ) = x T i β . Soit h la fonction de lien inverse mappant le prédicteur linéaire à la moyenne.gμi=E(yi|xi)g(μi)=xTiβh
Pour une régression logistique, nous avons une vraisemblance de Bernoulli avec des observations indépendantes donc
Prendre des dérivés,
∂ ℓ
ℓ ( b ; y) = ∑i = 1nyjeJournalh ( xTjeb ) + ( 1 - yje) journal( 1 - h ( xTjeb ) ) .
= n ∑ i=1xijh′(x T i b)( y i∂ℓ∂bj= ∑i = 1nyjeh ( xTjeb )h′( xTjeb ) xje j- 1 - yje1 - h ( xTjeb )h′( xTjeb ) xje j
=∑ixijh′(x T i b)=∑i=1nxijh′(xTib)(yih(xTib)−1−yi1−h(xTib))
= ∑jeXje jh′( xTjeb )h ( xTjeb ) ( 1 - h ( xTjeb ) )( yje- h ( xTjeb ) ) .
Utilisation du lien canonique
Supposons maintenant que nous utilisons la fonction de lien canonique . Alors g - 1 c ( x ) : = h c ( x ) = 1gc= logit donch ′ c =hc⋅(1-hc)ce qui signifie que cela se simplifie en
∂ℓg- 1c( x ) : = hc( x ) = 11 + e- xh′c= hc⋅ ( 1 - hc)
si
∇ℓ(b,y)=XT(y - y ).
De plus, toujours en utilisanthc,
∂2ℓ
∂ℓ∂bj=∑ixij(yi−hc(xTib))
∇ℓ(b;y)=XT(y−y^).
hc∂2ℓ∂bk∂bj= - ∑jeXje j∂∂bkhc( xTjeb ) = - ∑jeXje jXje k[ hc( xTjeb)(1−hc(xTib))].
Soit
Ensuite, nous avons
H=- X T WX
et notons comment cela n'a plus de y i , doncE(H)=H(nous considérons cela en fonction deb,donc la seule chose aléatoire estylui-même). Ainsi, nous avons montré que le score de Fisher est équivalent à Newton-Raphson lorsque nous utilisons le lien canonique dans la régression logistique. En outreen vertu de
W=diag(hc(xT1b)(1−hc(xT1b)),…,hc(xTnb)(1−hc(xTnb)))=diag(y^1(1−y^1),…,y^n(1−y^n)).
H=−XTWX
yiE(H)=Hby-XTWXsera toujours strictement définie négative, bien que numériquement si
y iest trop près de
0ou
1alors nous pouvons avoirpoids Arrondir à
0qui peut rendre
Hsemidéfinie de négatif etconséquent informatiquement singulier.
y^i∈(0,1) −XTWXy^i010H
Maintenant créer la réponse de travail et notez que
∇ ℓ = X T ( y - y ) = X T W z .z=W−1(y−y^)
∇ℓ=XT(y−y^)=XTWz.
b(m+1)=b(m)+(XTW(m)X)−1XTW(m)z(m)
(XTW(m)X)−1XTW(m)z(m)β^z(m)X
Enregistrement dans R
:
set.seed(123)
p <- 5
n <- 500
x <- matrix(rnorm(n * p), n, p)
betas <- runif(p, -2, 2)
hc <- function(x) 1 /(1 + exp(-x)) # inverse canonical link
p.true <- hc(x %*% betas)
y <- rbinom(n, 1, p.true)
# fitting with our procedure
my_IRLS_canonical <- function(x, y, b.init, hc, tol=1e-8) {
change <- Inf
b.old <- b.init
while(change > tol) {
eta <- x %*% b.old # linear predictor
y.hat <- hc(eta)
h.prime_eta <- y.hat * (1 - y.hat)
z <- (y - y.hat) / h.prime_eta
b.new <- b.old + lm(z ~ x - 1, weights = h.prime_eta)$coef # WLS regression
change <- sqrt(sum((b.new - b.old)^2))
b.old <- b.new
}
b.new
}
my_IRLS_canonical(x, y, rep(1,p), hc)
# x1 x2 x3 x4 x5
# -1.1149687 2.1897992 1.0271298 0.8702975 -1.2074851
glm(y ~ x - 1, family=binomial())$coef
# x1 x2 x3 x4 x5
# -1.1149687 2.1897992 1.0271298 0.8702975 -1.2074851
et ils sont d'accord.
Fonctions de liaison non canoniques
h′h(1−h)=1∇ℓHE(H)
∇ℓ
∂2ℓ∂bk∂bj=∑ixij∂∂bkh′(xTib)(yih(xTib)−1−yi1−h(xTib))
=∑ixijxik[h′′(xTib)(yih(xTib)−1−yi1−h(xTib))−h′(xTib)2(yih(xTib)2+1−yi(1−h(xTib))2)]
Via the linearity of expectation all we need to do to get E(H) is replace each occurrence of yi with its mean under our model which is μi=h(xTiβ). Each term in the summand will therefore contain a factor of the form
h′′(xTib)(h(xTiβ)h(xTib)−1−h(xTiβ)1−h(xTib))−h′(xTib)2(h(xTiβ)h(xTib)2+1−h(xTiβ)(1−h(xTib))2).
But to actually do our optimization we'll need to estimate each
β, and at step
m b(m) is the best guess we have. This means that this will reduce to
h′′(xTib)(h(xTib)h(xTib)−1−h(xTib)1−h(xTib))−h′(xTib)2(h(xTib)h(xTib)2+1−h(xTib)(1−h(xTib))2)
=−h′(xTib)2(1h(xTib)+11−h(xTib))
=−h′(xTib)2h(xTib)(1−h(xTib)).
This means we will use
J with
Jjk=−∑ixijxikh′(xTib)2h(xTib)(1−h(xTib)).
Now let
W∗=diag(h′(xT1b)2h(xT1b)(1−h(xT1b)),…,h′(xTnb)2h(xTnb)(1−h(xTnb)))
and note how under the canonical link
h′c=hc⋅(1−hc) reduces
W∗ to
W from the previous section. This lets us write
J=−XTW∗X
except this is now
E^(H) rather than necessarily being
H itself, so this can differ from Newton-Raphson. For all
i W∗ii>0 so aside from numerical issues
J will be negative definite.
We have
∂ℓ∂bj=∑ixijh′(xTib)h(xTib)(1−h(xTib))(yi−h(xTib))
so letting our new working response be
z∗=D−1(y−y^) with
D=diag(h′(xT1b),…,h′(xTnb)), we have
∇ℓ=XTW∗z∗.
All together we are iterating
b(m+1)=b(m)+(XTW∗(m)X)−1XTW∗(m)z∗(m)
so this is still a sequence of WLS regressions except now it's not necessarily Newton-Raphson.
I've written it out this way to emphasize the connection to Newton-Raphson, but frequently people will factor the updates so that each new point b(m+1) is itself the WLS solution, rather than a WLS solution added to the current point b(m). If we wanted to do this, we can do the following:
b(m+1)=b(m)+(XTW∗(m)X)−1XTW∗(m)z∗(m)
=(XTW∗(m)X)−1(XTW∗(m)Xb(m)+XTW∗(m)z∗(m))
=(XTW∗(m)X)−1XTW∗(m)(Xb(m)+z∗(m))
so if we're going this way you'll see the working response take the form
η(m)+D−1(m)(y−y^(m)), but it's the same thing.
Let's confirm that this works by using it to perform a probit regression on the same simulated data as before (and this is not the canonical link, so we need this more general form of IRLS).
my_IRLS_general <- function(x, y, b.init, h, h.prime, tol=1e-8) {
change <- Inf
b.old <- b.init
while(change > tol) {
eta <- x %*% b.old # linear predictor
y.hat <- h(eta)
h.prime_eta <- h.prime(eta)
w_star <- h.prime_eta^2 / (y.hat * (1 - y.hat))
z_star <- (y - y.hat) / h.prime_eta
b.new <- b.old + lm(z_star ~ x - 1, weights = w_star)$coef # WLS
change <- sqrt(sum((b.new - b.old)^2))
b.old <- b.new
}
b.new
}
# probit inverse link and derivative
h_probit <- function(x) pnorm(x, 0, 1)
h.prime_probit <- function(x) dnorm(x, 0, 1)
my_IRLS_general(x, y, rep(0,p), h_probit, h.prime_probit)
# x1 x2 x3 x4 x5
# -0.6456508 1.2520266 0.5820856 0.4982678 -0.6768585
glm(y~x-1, family=binomial(link="probit"))$coef
# x1 x2 x3 x4 x5
# -0.6456490 1.2520241 0.5820835 0.4982663 -0.6768581
and again the two agree.
Comments on convergence
Finally, a few quick comments on convergence (I'll keep this brief as this is getting really long and I'm no expert at optimization). Even though theoretically each J(m) is negative definite, bad initial conditions can still prevent this algorithm from converging. In the probit example above, changing the initial conditions to b.init=rep(1,p)
results in this, and that doesn't even look like a suspicious initial condition. If you step through the IRLS procedure with that initialization and these simulated data, by the second time through the loop there are some y^i that round to exactly 1 and so the weights become undefined. If we're using the canonical link in the algorithm I gave we won't ever be dividing by y^i(1−y^i) to get undefined weights, but if we've got a situation where some y^i are approaching 0 or 1, such as in the case of perfect separation, then we'll still get non-convergence as the gradient dies without us reaching anything.