x <- seq(-4,4, length=1000)
hx <- dnorm(x,mean=0, sd=1)
plot(x, hx, type="l", xlab = "valeur de x", ylab="density", main="loi normale")