R rbinom() 函数 - 生成二项分布随机数
R 语言实例R rbinom() 函数用于生成服从二项分布的随机数。
二项分布描述 n 次独立试验中成功的次数，每次试验成功概率为 p。常用于模拟抛硬币、质量抽检等场景。
rbinom() 函数语法格式如下：
rbinom(n, size, prob) dbinom(x, size, prob) # 概率质量函数 pbinom(q, size, prob) # 累积分布函数
参数说明：
n 生成随机数的个数。
size 每次试验的次数。
prob 每次试验成功的概率。
实例
# 模拟 100 人抛硬币 10 次，统计每人得到正面的次数
set.seed(123)
coin_flips <- rbinom(100, size = 10, prob = 0.5)
print("前 10 人的正面次数:")
print(coin_flips[1:10])
# 统计正面次数的分布
print("正面次数频数表:")
print(table(coin_flips))
# dbinom: 抛 10 次硬币，恰好得到 6 次正面的概率
prob_6 <- dbinom(6, size = 10, prob = 0.5)
print(paste("恰好 6 次正面的概率:", round(prob_6, 4)))
set.seed(123)
coin_flips <- rbinom(100, size = 10, prob = 0.5)
print("前 10 人的正面次数:")
print(coin_flips[1:10])
# 统计正面次数的分布
print("正面次数频数表:")
print(table(coin_flips))
# dbinom: 抛 10 次硬币，恰好得到 6 次正面的概率
prob_6 <- dbinom(6, size = 10, prob = 0.5)
print(paste("恰好 6 次正面的概率:", round(prob_6, 4)))
执行以上代码输出结果为：
[1] "前 10 人的正面次数:" [1] 5 7 8 4 5 6 5 7 6 2 [1] "正面次数频数表:" 0 1 2 3 4 5 6 7 8 9 10 1 1 1 9 11 17 24 22 8 5 1 [1] "恰好 6 次正面的概率: 0.2051"