-
编程教材 《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%
内容来源于网络如有侵权请私信删除
文章来源: 博客园
- 还没有人评论，欢迎说说您的想法！
客服
