## Not run:
# curve(erf, -3, 3, col = "orange", ylab = "", las = 1)
# curve(pnorm, -3, 3, add = TRUE, col = "blue", lty = "dotted", lwd = 2)
# abline(v = 0, h = 0, lty = "dashed")
# legend("topleft", c("erf(x)", "pnorm(x)"), col = c("orange", "blue"),
# lty = c("solid", "dotted"), lwd = 1:2) ## End(Not run)
Run the code above in your browser using DataLab