处理缺失值
在上一个练习中，许多行业的调和平均数是 NA。如果在计算前能去除缺失值，您的函数会更实用。
与其自己编写这部分代码，您可以把这项功能交给 mean() 来完成。
已加载 dplyr 包。
本练习是课程的一部分
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()
}