Вам просто нужно сбросить аргумент "w" в dnorm
в curve
:
w<-rnorm(1000)
hist(w,col="red",freq=F,xlim=c(-5,5))
curve(dnorm,-5,5,add=T,col="blue")
Чтобы использовать что-то отличное от «Unit Normal», вы задаете аргументы «mean» и «sd» (и не забудьте изменить пределы графика для hist
и curve
:
w<-rnorm(1000, mean=10, sd=2)
hist(w, col="red", freq=F, xlim=10+c(-5,5))
curve( dnorm(x, mean=10,sd=2), 5, 15, add=T, col="blue")