결측값 처리하기
이전 연습 문제에서는 여러 섹터의 조화 평균 값이 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()
}