x <- seq(-10,10,0.05) densities <- dnorm(x,mean=0,sd=3) plot(x, densities, type="l", lwd=2, xlab="", ylab="Density", main="The Normal Curve", col="darkgreen") # code below also works #curve(dnorm(x,0,1),from=-2, to=2)