Cómo tratar valores ausentes
En el último ejercicio, muchos sectores tenían un valor NA para la media armónica. Sería útil que tu función pudiera eliminar valores ausentes antes de calcular.
En lugar de escribir tu propio código para esto, puedes delegar esa funcionalidad en mean().
El paquete dplyr está cargado.
Este ejercicio forma parte del curso
Introducción a la escritura de funciones en R
Ejercicio interactivo práctico
Prueba este ejercicio y completa el código de muestra.
# Add an na.rm arg with a default, and pass it to mean()
calc_harmonic_mean <- function(x) {
x %>%
get_reciprocal() %>%
mean() %>%
get_reciprocal()
}