# Density of various exponential distributions
x <- (0:6000)/1000
plot(x, xlim=c(0,6), ylim=c(0,2), type="n",
	xlab="t", ylab="dens(T=t)",
	main="Various exponential distributions")
points(x, dexp(x, rate=0.5), type="l")
text(2, 0.2, labels="Rate 1/2", pos=4)
points(x, dexp(x, rate=1), type="l")
text(1, 0.4, labels="Rate 1", pos=4)
points(x, dexp(x, rate=2), type="l")
text(0.5, 1, labels="Rate 2", pos=4)