使用r：如何仅使用runif函数生成速率为1的指数距离

Question

使用R，如何仅通过生成均匀分布的随机变量（r中的runif函数）如何生成速率为1的指数分布随机变量。

Answer 1

在https://stephens999.github.io/fiveMinuteStats/inverse_transform_sampling.html中发现：

# inverse transfrom sampling
num.samples <-  1000
U           <-  runif(num.samples)
X           <- -log(1-U)/2

# plot
hist(X, freq=F, xlab='X', main='Generating Exponential R.V.')
curve(dexp(x, rate=2) , 0, 3, lwd=2, xlab = "", ylab = "", add = T)