方式一：编制函数

x<-rnorm(10000)#设置随机种子
#编写绘图函数代码快
f <- function(x){y = 1/(1 + exp(-x))plot(x,y)}#sigmoid函数
f(x)​

方式二：Sigmoid函数代码

x<-rnorm(10000)#设置随机种子
#编写绘图函数代码块
#y<-1/(1+exp(-x))
y<-exp(x)/(1+exp(x))
plot(x,y)​

Sigmoid函数图像