-
編程教材 《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%
轉載請註明出處，本文鏈接：https://www.uj5u.com/houduan/519111.html
標籤：R
上一篇：全球名校AI課程庫（16）| Stanford斯坦福 · 計算機科學導論課程『Introduction to Computers』