R语言、04 案例P143 Go bananas、《商务与经济统计》案例题

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

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

P143、案例 Go Bananas

image-20221024133014564


#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 不合格率降低到多少

image-20221024140334094
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%
posted @ 2022-10-24 21:03  小能日记  阅读(39)  评论(0编辑  收藏  举报