You just need to drop the "w" argument to dnorm
in curve
:
w<-rnorm(1000)
hist(w,col="red",freq=F,xlim=c(-5,5))
curve(dnorm,-5,5,add=T,col="blue")
To use something other than the "unit Normal" you supply "mean" and "sd" arguments (and do remember to change the plot limits for both hist
and 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")
与恶龙缠斗过久,自身亦成为恶龙;凝视深渊过久,深渊将回以凝视…