เขียนฟังก์ชันอย่างง่าย

มาเขียนฟังก์ชันอย่างง่ายเพื่อทำงานที่จะพบบ่อยในคอร์สนี้กัน ฟังก์ชันของเราจะจำลองการทอยลูกเต๋าและรายงานผลรวมของแต้มที่ออกมา โดยให้ผู้ใช้กำหนดได้ว่าต้องการทอยลูกเต๋ากี่ลูก

แม้ R จะไม่สามารถทอยลูกเต๋าจริงได้ แต่เราสามารถจำลองกระบวนการที่เทียบเท่าได้ด้วยการสุ่มดึงค่าจากชุดตัวเลข {1, 2, 3, 4, 5, 6} ด้วยความน่าจะเป็นที่เท่ากัน ซึ่งทำได้โดยใช้ฟังก์ชัน sample

แบบฝึกหัดนี้เป็นส่วนหนึ่งของหลักสูตร

Probability Puzzles in 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(___)

แก้ไขและรันโค้ด