R语言实现logistic回归曲线绘制

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

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