how to get confidence intervals of predicted probablity values in logstic

newdata1$rankP <- predict(mylogit, newdata = newdata1, type = "response",se=TRUE)

cilow=mylogit$fit -mylogit$se.fit

ciupper=mylogit$fit+mylogit$se.fit

这里se.fit的计算原理是什么呢？

还有做出的图中多个预测值，他们的置信区间宽度不同，是为什么？

希望大家能给与指导。

[s:14][s:15]木有人回我。