r - 绘制被分配到组的概率

Question

本书中有一个有意义的图表在这里（向下滚动一点），它显示了在研究中分配到一个组的概率如何随着假设的连续“X”（X 轴）变量而变化。

我想知道如何（大约）在 R 中绘制这个函数？

Answer 1

它被称为Sigmoid 函数。

f <- \(x, a, b, c) {a/(1 + b*c^-x)}
curve(f(x, a=1, b=1, c=.5), xlim=c(-10, 10), main='Sigmoids', col=4, lwd=2)
curve(exp(x)/(exp(x) + 1), xlim=c(-10, 10), col='orange', lwd=2, add=TRUE)
legend('right', legend=c('foo', 'logistic'), col=c(4, 'orange'), lwd=2)