Lidando com valores ausentes
No último exercício, muitos setores tinham um valor NA para a média harmônica. Seria útil que sua função pudesse remover valores ausentes antes de calcular.
Em vez de escrever seu próprio código para isso, você pode delegar essa funcionalidade para mean().
O pacote dplyr está carregado.
Este exercício faz parte do curso
Introdução à Escrita de Funções em R
Exercício interativo prático
Experimente este exercício completando este código de exemplo.
# Add an na.rm arg with a default, and pass it to mean()
calc_harmonic_mean <- function(x) {
x %>%
get_reciprocal() %>%
mean() %>%
get_reciprocal()
}