สร้างกราฟ

ขั้นตอนสุดท้าย มาสร้างกราฟแสดงความน่าจะเป็นของการจับคู่ตามขนาดกลุ่ม โดยใช้ฟังก์ชัน pbirthday ที่ได้ฝึกใช้ในแบบฝึกหัดก่อนหน้า

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

Probability Puzzles in R

ดูคอร์ส

คำแนะนำการฝึกหัด

กำหนดให้ตัวแปร room_sizes เท่ากับชุดจำนวนเต็มตั้งแต่ 1 ถึง 50
รันฟังก์ชัน pbirthday ภายใน sapply โดยส่งเวกเตอร์ของขนาดห้องเข้าไป แล้วเก็บผลลัพธ์ไว้ในตัวแปร match_probs
สร้างกราฟโดยให้แกน x เป็นขนาดห้องและแกน y เป็นความน่าจะเป็นของการจับคู่ โดยใช้ตัวแปรทั้งสองที่สร้างขึ้น

แบบฝึกหัดเชิงโต้ตอบแบบลงมือทำ

ลองทำแบบฝึกหัดนี้โดยเติมโค้ดตัวอย่างนี้ให้สมบูรณ์

# Define the vector of sample sizes
room_sizes <- ___

# Run the pbirthday function within sapply on the vector of sample sizes
match_probs <- sapply(___)

# Create the plot
plot(___ ~ ___)

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