R rexp() 函数 - 生成指数分布随机数
R 语言实例R rexp() 函数用于生成服从指数分布的随机数。
指数分布常用于描述等待时间，如设备寿命、顾客到达时间间隔等。
rexp() 函数语法格式如下：
rexp(n, rate = 1) dexp(x, rate = 1) # 密度函数 pexp(q, rate = 1) # 累积分布函数
参数说明：
n 生成随机数的个数。
rate 比率参数，均值等于 1/rate。
实例
# 模拟顾客到达时间间隔（平均 5 分钟来一位）
set.seed(123)
arrival_times <- rexp(10, rate = 1/5)
print("10 位顾客的到达间隔（分钟）:")
print(round(arrival_times, 2))
print(paste("平均间隔:", round(mean(arrival_times), 2), "分钟"))
# 生成大量数据验证
set.seed(123)
large_sample <- rexp(10000, rate = 1/5)
print(paste("10000 个样本均值:", round(mean(large_sample), 2)))
set.seed(123)
arrival_times <- rexp(10, rate = 1/5)
print("10 位顾客的到达间隔（分钟）:")
print(round(arrival_times, 2))
print(paste("平均间隔:", round(mean(arrival_times), 2), "分钟"))
# 生成大量数据验证
set.seed(123)
large_sample <- rexp(10000, rate = 1/5)
print(paste("10000 个样本均值:", round(mean(large_sample), 2)))
执行以上代码输出结果为：
[1] "10 位顾客的到达间隔（分钟）:" [1] 1.52 1.19 16.40 0.66 0.69 9.80 2.65 1.03 3.30 0.06 [1] "平均间隔: 3.73 分钟" [1] "10000 个样本均值: 5.02"