模擬正負號錯誤：變動機率
在前一個練習中，每次模擬在每一步都有固定的正負號錯誤機率。
原始問題中，每一步的正負號錯誤機率可以不同；唯一的限制是每個機率都小於 0.50。
在這裡，我們來模擬一題有 2 個步驟的數學題，各步驟的切換機率分別為 0.49 與 0.01，也就是第一步很可能變成錯誤，第二步再切回正確的機率很低。
本練習屬於課程
R 的機率謎題
練習說明
- 使用
sapply搭配rbinom來模擬一題內部的切換，第一與第二步的切換機率分別為 0.49 與 0.01。 - 求出實際發生的切換總次數。
- 判斷這題數學問題的最終答案是否正確。
動手互動練習
試著完成這個範例程式碼，體驗一下這個練習。
set.seed(1)
counter <- 0
for(i in 1:10000){
# Simulate switches
each_switch <- sapply(___)
# Count switches
num_switches <-
# Check solution
if(___){
counter <- counter + 1
}
}
print(counter/10000)