欠損値への対処
前の演習では、多くのセクターで調和平均が 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()
}