“如何写作”；正态分布&引用；高斯核；在R

谢谢收看我的提问

我想写“正态分布”（高斯分布）

不要使用rnorm

我试着写一些代码。 但是“abline（v=平均值（x）+标准差（x））”到目前为止！ 我该怎么办

我的代码

X<- rnorm(1000,50,8)

fx<-function(x,SD,M){
(1/(sqrt(2*pi)*SD))*(exp(1)**(-1*(x-M)**2/2*(SD**2)))
}

SDx1<-sd(X)
M1<-mean(X)
OO<-c(1:100)
data<-fx(OO,SDx1,M1)

plot(X,data)
abline(v=mean(X)+sd(X))
abline(v=mean(X)-sd(X))

我想要这个无花果

TRUE_data<-rnorm(1000,50,8)
hist(TRUE_data)]
abline(v=mean(TRUE_data)+sd(TRUE_data),col="red")
abline(v=mean(TRUE_data)-sd(TRUE_data),col="red")

---

TRUE\u数据
fx
的定义是错误的。试试
fx@nicola谢谢评论！但我失败了……```` ` `##你写的东西让人很困惑。请编辑问题以插入您的新尝试。顺便说一句，您正在切换平均值和标准偏差（例如
SD1@nicola对不起。我英语不好。很抱歉让你感到困惑。我现在就解决它！“
fx”
TRUE_data<-rnorm(1000,50,8)
hist(TRUE_data)]
abline(v=mean(TRUE_data)+sd(TRUE_data),col="red")
abline(v=mean(TRUE_data)-sd(TRUE_data),col="red")