方式一：编制函数

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函数图像