• 編程教材 《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%