如何计算R中的逻辑回归权重？

Question

我目前正在阅读有关中介分析的R教程。 复制数据集并建模每个介体之后。 有一个步骤，应该计算回归权重以获得密度。在本教程中，作者展示了如何使用dnorm函数为数字变量（使用线性回归建模）计算该变量。

fitM1<-glm(M1 ~ A + C, family = gaussian("identity"), data =dat)

num1<- with(extdat1, dnorm(M1, mean = predict(fitM1, newdata = within(extdat, A<- a1), 
                                             type = "response"),
                   sd = sqrt(summary(fitM1)$dispersion)))

denom1 <- with(expdat1,
               dnorm(M1, mean = predict(fitM1, newdata = within(expData, A <- a2),
                                               type = "response"),
                     sd = sqrt(summary(fitM1)$dispersion)))

expdat1$W1 <- num1/denom1

但是，尝试将其应用于我的数据时，我的中介器是一个二进制变量。 如何计算逻辑回归的权重？