print(pnorm(5), digits = 10)
## [1] 0.9999997133
x <- seq(0, 6, length = 1000) plot(x, pnorm(x), t = "l", log = "y")
