การจัดการกับค่าที่หายไป
ในแบบฝึกหัดที่แล้ว หลาย sector มีค่า NA สำหรับค่าเฉลี่ยฮาร์มอนิก จะดีมากหากฟังก์ชันสามารถลบค่าที่หายไปออกก่อนคำนวณได้
แทนที่จะเขียนโค้ดเองทั้งหมด สามารถมอบหน้าที่นี้ให้ mean() จัดการแทนได้
แพ็กเกจ dplyr ถูกโหลดไว้แล้ว
แบบฝึกหัดนี้เป็นส่วนหนึ่งของหลักสูตร
Introduction to Writing Functions in R
แบบฝึกหัดเชิงโต้ตอบแบบลงมือทำ
ลองทำแบบฝึกหัดนี้โดยเติมโค้ดตัวอย่างนี้ให้สมบูรณ์
# Add an na.rm arg with a default, and pass it to mean()
calc_harmonic_mean <- function(x) {
x %>%
get_reciprocal() %>%
mean() %>%
get_reciprocal()
}