Demonstration of normal curve

This is a normal curve

curve <- rnorm(1000, 0, 1)
hist(curve)