• 编程教材 《R语言实战·第2版》Robert I. Kabacoff

• 课程教材《商务与经济统计·原书第13版》 (安德森)

P143、案例 Go Bananas

#1 生产中断的概率

c <- pbinom(4, 25, .08)  # 4 是默认 P(x <= 4)
answer1 <- 1 - c  # 求 P(x >= 5) = 1 - P(x <= 4)
print(answer1)

0.04514354

每周有4.5%的概率会中断生产，考虑到企业利润，时间就是金钱。大部分公司生产线日产量是以万为单位的，暂停生产线进行调试对食品公司来说是极大的损失。应当修改策略方案或改进生产工艺进一步降低生产中断的概率。

#2 至少有多少盒

answer2 <- qbinom(0.99, 25, .08)
print(answer2)

6

#3 不合格率降低到多少

x <- seq(0.04, 0.08, by = 0.005)
y <- pbinom(4, 25, x)
plot(x, y, type = "h")

x <- seq(0.05, 0.055, by = 0.0005)
y <- pbinom(4, 25, x)
plot(x, y, type = "h")

answer3 <- 1 - pbinom(4, 25, .054)
print(answer3) # 0.009987695

结合图表进一步细分可知需要将产品合格率控制在 5.4%