เริ่มต้นใช้งานเริ่มต้นใช้งานได้ฟรี

สร้างผลลัพธ์ bootstrap ซ้ำ

คุณทำงานให้กับบริษัทนายหน้าหุ้นออนไลน์ ทีมกำลังพัฒนาแอป Android ที่แสดงช่วงราคาโดยประมาณของหุ้นที่บริษัทจำหน่าย มีฟังก์ชัน boot_price() ให้ใช้สำหรับคำนวณช่วงราคารายเดือน

เพื่อทดสอบความสามารถในการสร้างผลลัพธ์ซ้ำของฟังก์ชันนี้แบบขนาน คุณตัดสินใจนำฟังก์ชันนี้ไปใช้กับทุกองค์ประกอบใน list ชื่อ ls_micro โดยแต่ละองค์ประกอบคือเวกเตอร์ของราคาหุ้น Microsoft เฉลี่ยรายวันในแต่ละเดือน

โหลดแพ็กเกจ parallel ไว้ให้แล้ว

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

การเขียนโปรแกรมแบบขนานใน R

ดูคอร์ส

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

  • กำหนดค่า seed เป็น 321 ให้กับ cluster cl1 สำหรับการรันครั้งแรก
  • กำหนดค่า seed เดียวกันให้กับ cluster cl2 สำหรับการรันครั้งที่สอง
  • ทดสอบว่าผลลัพธ์ result1 และ result2 เหมือนกันหรือไม่

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

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

cl1 <- makeCluster(4)
# Set 321 as the seed value for the first run
___(___, ___)
result1 <- parLapply(cl1, ls_micro, boot_price)
stopCluster(cl1)

cl2 <- makeCluster(4)
# Set the same seed value for the second run
___(___, ___)
result2 <- parLapply(cl2, ls_micro, boot_price)
stopCluster(cl2)

# Test if outputs are the same
___(___, ___)
แก้ไขและรันโค้ด