เวลาที่ใช้ไป

การใช้ system.time() นั้นสะดวก แต่ก็มีข้อจำกัดเมื่อต้องเปรียบเทียบการเรียกใช้ฟังก์ชันหลายตัวพร้อมกัน แพ็กเกจ microbenchmark แก้ปัญหานี้ด้วยฟังก์ชัน microbenchmark()

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

การเขียน R Code อย่างมีประสิทธิภาพ

ดูคอร์ส

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

ไฟล์ "movies.csv" และ "movies.rds" พร้อมใช้งานใน workspace ของคุณแล้ว

โหลดแพ็กเกจ microbenchmark โดยใช้ฟังก์ชัน library()
ใช้ microbenchmark(), read.csv() และ readRDS() เพื่อเปรียบเทียบเวลาที่ใช้ในการนำเข้าไฟล์ CSV กับไฟล์ RDS แล้วเก็บผลลัพธ์ไว้ในตัวแปรชื่อ compare
- ในการเรียกใช้ microbenchmark() ให้ระบุ times = 10 เพื่อเรียกใช้แต่ละฟังก์ชัน 10 ครั้ง
พิมพ์ compare เพื่อดูผลลัพธ์

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

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

# Load the microbenchmark package
library(___)

# Compare the two functions
compare <- microbenchmark(___, 
                          ___, 
                          times = ___)

# Print compare
___

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