## Not run:
# # Q-Q Plot for 1000 U(0,1) r.v., marking those <= 1e-5
# u_obs <- runif(1000)
# r <- qqunif(u_obs,pch=21,bg="blue",bty="n")
# u_exp <- r$y
# hits <- u_exp >= 2.30103
# points(r$x[hits],u_exp[hits],pch=21,bg="green")
# ## End(Not run)
Run the code above in your browser using DataLab