2015-11-03 1 views

Répondre

1

Cette question ne dispose pas l'effort mais il piqué mon intérêt, donc là vous l'avez:

#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') 

Résultat:

enter image description here

+0

Cela fonctionne très bien merci beaucoup – Homayoon