จาก sapply สู่ vapply

ดังที่ได้กล่าวไว้ก่อนหน้านี้ vapply() ถือเป็นเวอร์ชันที่แข็งแกร่งกว่าของ sapply() เนื่องจากกำหนดรูปแบบของผลลัพธ์ไว้อย่างชัดเจน การแปลงคำสั่ง sapply() ในสคริปต์ R ของคุณให้เป็น vapply() จึงเป็นแนวปฏิบัติที่ดี (และทำได้ง่ายมากด้วย!)

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

R ระดับกลาง

ดูคอร์ส

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

แปลงคำสั่ง sapply() ทั้งหมดทางด้านขวาให้เป็น vapply() ผลลัพธ์ที่ได้ควรเหมือนเดิมทุกประการ เพียงแต่เพิ่มความแข็งแกร่งให้กับโค้ดเท่านั้น โดยจะต้องใช้เทมเพลต numeric(1) และ logical(1)

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

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

# temp is already defined in the workspace

# Convert to vapply() expression
sapply(temp, max)

# Convert to vapply() expression
sapply(temp, function(x, y) { mean(x) > y }, y = 5)

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