... を使って引数を渡す
calc_harmonic_mean() と na.rm の引数を明示的に指定する代わりに、... を使って mean() に「ほかの引数を渡す」ことができます。
dplyr パッケージは読み込まれています。
この演習はコースの一部です
R関数入門
実践的なインタラクティブ演習
このサンプルコードを完成させて、この演習に挑戦してみましょう。
# Swap na.rm arg for ... in signature and body
calc_harmonic_mean <- function(x, na.rm = FALSE) {
x %>%
get_reciprocal() %>%
mean(na.rm = na.rm) %>%
get_reciprocal()
}