我正在尝试使用转换的线性回归重现以下逻辑回归示例:
am.glm <- glm(am ~ hp + wt, data=mtcars, family=binomial)
newdata <- data.frame(hp=120, wt=2.8)
predict(am.glm, newdata, type="response")
## 1
## 0.6418125
的概率方程如下:
所以我尝试了这样的事情:
am.lm <- lm(am ~ 1/(1+exp(-(hp + wt))),data=mtcars)
predict(am.lm, newdata)
## 1
## 0.40625
所以这显然是错误的!(我也尝试过转换给定的值,但到目前为止没有任何效果)。
我的问题
如何设置逻辑回归并明确指定线性模型的非线性变换的公式?