dexp(x, rate=1) pexp(q, rate=1) qexp(p, rate=1) rexp(n, rate=1)
A relative of the exponential is the double exponential or Laplace distribution. The double exponential is "folded over" so that it is symmetric about zero.
values <- seq(0.0001, 6, length=200); bvals <- values[values>qexp(.95)] plot(values, dexp(values), type="l") polygon(c(qexp(.95), bvals, 6), c(0, dexp(bvals), 0)) abline(h=0); abline(v=0)