2015-11-03 185 views

回答

1

這個問題缺乏努力,但它激起了我的興趣,所以你有它:

#standard normal distribution data 
x <- seq(-4, 4, length=100) 
hx <- dnorm(x) 

#plot a standard normal distribution 
plot(x, hx, type="l", lty=2, xlab="x value") 
#plot a vertical line at -2*std 
abline(v=-2, col='red') 
#plot a vertical line at 2*std 
abline(v= 2, col='red') 
#make the arrow 
arrows(x0=-2, y0=0.35, x1=2, y1=0.35, code=3, col='blue') 
#plot the text 
text(x=0, y=0.37,labels='0.95%', col='red') 

結果:

enter image description here

+0

這個偉大的工程非常感謝你 – Homayoon