# Distribution of various exponential random variables
x <- (0:6000)/1000
plot(x, xlim=c(0,6), ylim=c(0,1), type="n",
	xlab="t", ylab="P(T<=t)",
	main="Various exponential distributions")
points(x, pexp(x, rate=0.5), type="l")
text(0.7, 0.25, labels="Rate 1/2", pos=4)
points(x, pexp(x, rate=1), type="l")
text(1, 0.7, labels="Rate 1", pos=4)
points(x, pexp(x, rate=2), type="l")
text(0.5, 1, labels="Rate 2", pos=4)