撰寫一個簡單函式
來寫一個在本課程中常見任務的簡單函式。這個函式會模擬擲骰子，並回報出現點數的總和。函式也會讓使用者自行選擇要擲幾顆骰子。
雖然 R 不可能真的幫我們丟骰子，但我們可以用等機率從 {1, 2, 3, 4, 5, 6} 這個集合中隨機抽取，來模擬等效的過程。使用 sample 函式就是其中一種做法。
本練習屬於課程
R 的機率謎題
練習說明
- 使用
sample函式，設定size與replace參數。 - 計算所有擲骰結果的總和。
- 使用
return回傳包含答案的物件。 - 以擲 5 顆骰子來執行這個函式。
動手互動練習
試著完成這個範例程式碼，體驗一下這個練習。
# Set seed to 1
set.seed(1)
# Write a function to roll k dice
roll_dice <- function(k){
all_rolls <- sample(c(1,2,3,4,5,6),
___,
replace = ___)
final_answer <- ____
return(___)
}
# Run the function to roll five dice
roll_dice(___)