Как написать "нормальное распределение", "гауссовское ядро" в R - PullRequest
Новая
       11

Как написать "нормальное распределение", "гауссовское ядро" в R

0 голосов
/ 25 сентября 2019

введите описание изображения здесь

спасибо, что смотрите мой вопрос.

Я хочу написать "нормальное распределение" (гауссово).

Донне использую rnorm.

Я пытаюсь написать код.но "abline (v = mean (x) + sd (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))

Аблайн пока.sd (X) = neary = 8, потому что я предполагаю, что аблайн (v = mean (X) + sd (X)) равен (V = 58).

, но мои «данные» не сработали.

как мне это исправить ?? 

(1/(sqrt(2*pi)*SD))*(exp(1)**(-1*(x-M)**2/2*(SD**2)))

Я хочу вот так рис. 

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")
...